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BBB 
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BBB 
BBB 
BBB 
000 888888888888 
000 B8BBBBB8B8BB 
000 B8888BB8B8BBB 
BBB 
000 888 
888 
BBB 
BBB 
BBB 
BBBBBBBBBBBB 
BBBBBBBBBBBB 
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00C000000 
000000000 
000000000 
000000000 
000000000 
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RRRRRRRR EEEEEEEEEE cccccccc 000000 RRRRRRRR DODDDDDD UU UU TTTTTTTTTT ib 
RRRRRRRR EEEEEEEEEE cccccccc 000000 RRRRRRRR DDDDDDDD UU UU TTTTTTTTTT LL 
RR RR EE cc 00 0O RR RR DD DD UU UU TT LL 
RR RR EE cc 00 00 RR RR DD DD UU UU TT LL 
RR RR EE cc 00 OO RR RR DD DD UU UU TT LL 
RR RR EE cc 00 OO RR RR DD DD UU UU TT LL 
RRRRRRRR EEEEEEEE cc 00 00 RRRRRRRR DD DD UU UU TT LL 
RRRRRRRR EEEEEEEE cc 00 00 RRRRRRRR DD DD UU UU TT LL 
RR RR EE cc 00 OO RR RR DD DD UU UU TT LL 
RR RR EE cc 00 OO RR RR DD DD UU UU TT LL 
R R EE cc 00 0O RR RR DD DD UU UU TT LL eoee 
RR RR EE cc 00 00 RR RR DD DD UU UU TT LL eeee 
RR RR EEEEEEEEEE ccccccce 000000 RR RR DDDDDDDD UUUUUUUUUU TT LLELLLLLLLL eoee 
RR RR EEEEEEEEEE ccccccce 000000 RR RR DDDDDDDD UUUUUUUUUU TT LLLLLLLLLL cece 
LL III! SSSSSSSS 
LL INI1I1 SSSSSSSS 
LL I SS 
LL I SS 
LL I $$ 
LL I SS 
LL 1 
LL | 
LL I SS 
LL I SS 
LL I $$ 
LL I Ss 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII SSSSSSSS 


RECORDUTL Queue record manipulation utilities 14-42 =300n 1986 00: 18:92 AX-11 Bliss-32 V4.0-7 Page | 
14-Sep-1 2:37:12 JOBCTL.SRCJRECORDUTL. 3 2;1 (1) 
: 1 1 MODULE entities)! TLE eyes of record manipulation utilities’ : 
; : : y= | ; 
: 4 BEGIN ; 
= gy | 
: ? 008 : i eeeeeeeeeeeereeeeeeeeeeeeeeeeeeereeeeeerereerereeeeeeeeeeeeereeeeeeeeeeneent : 
: '@ ® Ps 
r 7 009 1 '# COPYRIGHT (c) 1978 1980, 1982, 1984 B * 5 
3 10 1 1 '!® DIGITAL EQUIPMENT CORPORA TION, MAYNARD. MASSACHUSETTS. * é 
3 1} 1) : is ALL RIGHTS RESERVED. * 
° ; ® 
3 ig ig 1 [2 hal ee is gt el ues A LICENSE AND MAY BE USED AND og he * 
3 14 014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
$ 15 015 1 !* INCLUSION on ABOVE COPYRIGHT NOTICE. THIS ARE THE * 
; 16 B28 1 !® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
s 17 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; \8 Bais : TRANSFERRED. * 
° ; & 
3 0 0020 1 !* THE ge IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
$ 1 0021 1 !'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; ¢ 8 ¢ ! + CORPORATION. : 
; 26 0024 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 5 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 6 0026 1 !« * 
; 7 0027 1 !« * 
3 g§ 0028 1 leer e rear eee eee eA A AAA REAEA AREA AAA AA AAA AAA AAAAAAEAAAAEREAEAAEAAREREEE 
3 9 0029 1! 
g 0 6080 1 
; 1 0031 1 !++ 
; § ite 1! FACILITY: 
; 0033 1! Job controller. 
3 4 0034 1! 
3 5 0035 1 | ABSTRACT: 
3 $ Bo38 , This module contains utility routines to manipulate queue records. 
; 4 $038 1 | ENVIRONMENT: 
. oe 0039 1! VAX/VMS user and kernel mode. 
; 40 0040 1 i-- 
30 (41 0041 1! 
; ri Opes 1 ! AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 
3 4 004 1! 
3 44 044 1 ! MODIFIED BY: 
: 65 045 1! 
: 6 046 1! v03-010 JAK0228 Krycka 20-Aug-1984 
3 rt 944 } : Restrict total ina of all earaneber strings for a batch job. 
: 49 049 1! v03-009 JAK0220 ycka 18-Jul-1984 
s $0 050 1! fu peer’ sJC$ _PAGINATE rt the queue level in addition to the 
; 5 bas ! } ob and file levels. 
; Q $38 1 v03-008 SAROODS ory 8, R. Sahert 16-Sep-1983 | 
; 35 bee ! Remove delete ccean chec | 
; ¢ 056 | i v03-007 GRROOO2 Gregory R. Robert 09-Sep-1983 | 
s; $ 0057 1! Make FIB non-local to repair asynchronous stack corruption. 
| 
| 


ee ee eee 18-198 3:39:43 WMoacte°SResneconoutc 082: 1 


: 1! 

; 3 3 : v03-006 MLJ0118 Martin L. Jack, 23-Aug-1983 ; 
: Change field name, implement page setup, fix file deletion bug. 
; 6¢ ¢ 1/ v03-005 MLJ0115 Martin L. Jack, 30-Jul-1983 

: o7 : Changes for job controller baselevel. 

: 65 5 1! VO3-004 MLJ0114 Martin L. Jack, 23-Jun-1983 

: 66 066 1 | Split from QUEUEUTIL. 

: 68 8 1: v03-003 MLJ0113 Martin L. Jack, 26-May-1983 

, +4 B07 : Changes for job controller baselevel. 

We 071 1: v03-002 mLJ0112 Martin L. Jack, 29-Apr-1983 

: Le: Bag : Changes for job controller baselevel. 

ee 0 S074 ri v03-001 MLJ0109 Martin L. Jack, 14-Apr-1983 

: o +h ; Changes for job controller baselevel. 

: #77 0077 1 ive 
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Queue record manipulation utilities 


REQUIRE "SRCS$:JOBCTLDEF’; 


FORWARD ROUTINE 
UPDATE 


EXTERNAL ROUTINE 


DEALLOCATE-RECO 
DEALLOCATE~ 
LOCK_QUEUE 
READ RECORD 
REWRITE RECORD: 
SCAN_ INCOMPLETE 
SCHEDULE _NONAST 
STORE_ VARIABLE 
STORE VARIABLE 
UNLOCR_QUEUE_FILE: 


EXTERNAL 


BUILTIN 


“ONE_F I 
DELETE ONE —F 


RD: 
VARIABLE_DATA: 
FILE: 


BYTE ADDR 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
! 
1 ALLOCATE_ENTRY 
LOCATE -MEMOR 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 ESS 
BYTE ADDRESS 
1 

1 

1 

1 


NOVALUE, 
NOVALUE 


L_OuTPUT_2, 


NOVALUE 


L_OUTPUT_2, 


NOVALUE 


L_OUTPUT_2, 


NOVALUE 


L_OUTPUT_2, 


NOVALUE, 


L_OUTPUT_2, 


NOVALUE, 
NOVALUE, 
NOVALUE, 
NOVALUE, 


NOVALUE, 
NOVALUE, 


NOVALUE; 


NG_ 
NG" 
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Queue record manipulation utilities 16-Sep-1984 00:18:27 AX-11 Bliss-32 V4.0-74 P 
a Te es at et ea et PP — 
GLOBAL ROUTINE UPDATE_SFX_ENTRY(SFE,SFM_N,SFM): NOVALUE= 
t+¢ 


FUNCTIONAL DESCRIPTION: 
This routine updates an SFX entry from the corresponding SFM record. 


INPUT PARAMETERS: 
SFE - Pointer to SFX entry. 


SFM_N - Record number of SFA. 
SFM - Pointer to SFM. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 
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— 
SFE: REF BBLOCK, ! Pointer to SFX entry 
SFM: REF BBLOCK; ! Pointer to SFM 
CHSMOVE (SFMSS_NAME, SFMCSFMST_NAME], SFECSFXST_NAME)); 
SFE SEXSL_FORA Li? = .SFM_N; 
are SFXSL-NUMBER] = .SFMCSFASL_NUMBER); 


-TITLE RECORDUTL Queue record manipulation utilities 
-IDENT \V04-000\ 


-PSECT COMMON,NOEXE, OVR,2 
00000 DIAG_STORAGE BASE: 


BL 0 
00000 DIAG_TRACE: 

~BL % 
00060 DIAG_COUNT: 

-BL % 
000CO DIAG_FLAGS: , 


8B 
000¢4 WORK AREA: 
000FO SNDJBC_COUNT: 
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00174 
0019C 
00188 
00200 


00200 F 
00204 


00208 


0020 
0021 


00218 
00220 
00234 
00238 
0023C 


00248 
00270 
00278 
0027C 
00280 
00284 
00288 
0028¢ 
00290 
00294 
002A0 
002A8 
00280 


Bose0 Jet 


«BL 
QO MBX: _ BLK 


N 12 
VenSep-1986 $2s7si2 — LadactLesnesmeConDUrL -652;1 


.BLKB 132 
GETOUL COUNT: 

-BLKB 40 
SNDACC_COUNT: 


BLK 
SNDSMB -COUNT: 
DIAG_STORAGE_END: 
LAGS: .BLKB 
IMAGE. DUMP STSFL 
THIS_SYSID: 
-BLKB 


HOURLY_TIME: 
HOURLY _PARARS: 
SYMBIONT. “COUNT: 
QUEUE _REF ERENCE_COUNT: 
MBX MESSAGE POUNT: 
BLRB 


. 

@ 

« 

x 

@ 
m © © WA RORO-N 
o * ~ 


B 
MBX _END: .BLKB 
MEMORY. “FREE QUEUES: 


L 
NONAST -WORK QUEUE : 
BCB_FREE Tist: 
BCB_ACTIVE LIST: 
GOL_FREE_LIST: 
“BLKB 
GOL -ACTIVE List: 
OPEN_GETQUI LIST: 
.BLRB 
PROCESS DATA LIST: 
SYMBIONT. CONTROL: 
SPARE_AREA: 
REMOTE _REQUEST_L 
QUEUE _FILE LKSB: 
QUEUE _LOCK _LKSB: 


OnRM ARES ROR 
“ov 


mn 


coco Go cox Pas Pa a aS 
@ 


: _ -BLKB 
JBC_PRIORITY: 
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1S-Feo-t9se 09:18:27 


002¢4 yec_privirtces: 


-BL 
OO2CC JBC_QUOTAS: 


-BLKB 
O86 -BLKB 
JBC_UIC: .BLKB 

4 QUEJE_FAB: 


.B 

364 QUEUE_RAB: 
003A8 QUEUE _NAM: 
00408 QUEUE_xAB: 


BLK 
00460 QUEUE _RSA: 
-BLK 


OO55F -BLK 
00560 QUEUE_ALQ: 


BLKB 


LKB 


.B 
00564 QUEUE _MBF : 
BLK 


00565 


-BLKB 
00568 ACCOUNTING FABS: 
00570 ACCOUNTING RABS: 
00578 ACCOUNT FAB, A: 
005¢8 ACCOUNT _RAB A: 
0060¢ ACCOUNT _NAM A: 
0066C ACCOUNT_RSA A: 

-BLRB 
00768 -BLKB 
0076C ACCOUNT FAB B: 
0078C ACCOUNT RAB B: 
00800 ACCOUNT NAM B: 
00860 ACCOUNT_RSA B: 

BLRB 


095F *BLKB 


0960 DIAG_FAB: 
00980 DIAG_RAB: 
009F4 MBX_CHAN: 


z BL 
009F8 MBX_IOSB: 


LK 
OOA00 MBX BUFFER: - 024 
QOE00 VALUE sto EASE: 


1 
| 
AX-11 Bliss-32 v4.0-7 Page 6 
HOBCTL SREIRECORDUTL 6 2:1 (3) 
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rSBen-1964 99:18:92 


0000 ITEM_PRESENT: 

BLKB 32 
0020 VALUE _GETQUI BASE: 
0020 VALUE ACCOUNT ING MESSAGE : 
00E26 VALUE .ACCOUNTING, TYPES: 
OOE2A VALUE_AFTER TIME: 
00E32 VALUE ALIGNMENT PAGES: 
00E33 VALUE _BASE PRIORITY: 
00E 34 VALUE BATCH INPUT : 
O0E3A VALUE BATCH OUTPUT: 
OOE44 VALUE BUFFER. COUNT: 
00E45 VALUE. CHARACTERISTIC NAME : 
00E48 VALUE CHARACTERISTIC NUMBER: 
OOE4C VALUE CHARACTERISTICS: 
QOESC VALUE_CHECKPOINT_DATA: 
00E62 VALUE _cLic 9 
00E68 VALUE CPU DEFAULT: 
OOE6C VALUE_CPU CIAIT: 
00E70 VALUE DESTINATION QUEUE : 
00E78 VALUE DEVICE NAME : 
OQOE7E VALUE_ENTRY NUMBER: 
00E82 VALUE ENTRY NUMBER _OUTPUT : 
QOE8C VALUE -exiEND QUANTITY: 
OOESE VALUE FILE COPIES: 
OOESF VALUE_FILE IDENTIFICATION: 
00EB3 VALUE_FILE SETUP MODULES : 
Q0EB9 VALUE_FILE SPECIFICATION: 
OOEBF VALUE FIRST PAGE : 
OOEC3 VALUE FORM DESCRIPTION: 
OOEC9 VALUE _FORM_ LENGTH: 


AX-11 Bliss-32 V4.0- rs 
JOBCTL.SRCIRECORDUTL.B32;1 


Page 


LP Eien neeeeppreae ice a Se IS BRLSetaat | fl 
OOECA nae RARGIN_BOTTON: 
00ECB VALUE FORM MARGIN LEFT: 
OOECD VALUE _FORR MARGIN. RIGHT: 
OOECF VALUE _FORR MARGIN. TOP: 
OOEDO VALUE_FORM NAME 
QOED6 VALUE_FORM NUMBER 
OOEDA VALUE FORM: 
OOEE2 VALUE_FORM SETUP 
OOEES VALUE _FORM sien 
OOEEE VALUE_FORM WIDTH: 
OOEFO VALUE -GENERIC_ TA 
01204 VALUE _JOB COPIES: 
01205 VALUE_JOB LIMIT: 
012D6 VALUE_JOB NARE 
012DC VALUE _JOB RESET MODULES: 
012E2 VALUE_JOB size MAXIMUM: 
012E6 VALUE_JOB SIZE MINIMUM: 
O12EA VALUE_JOB STATUS, QUTPUT: 
012F4 VALUE_LAST_PAGE: 
012F8 VALUE -LIBRARY SPECIFICATION: | 
O12FE VALUE_LOG QUEUE : | 
01306 VALUE_LOG SPECIFICATION: | 
0130C VALUE_NOTE: 

-BLKB 6 
01312 VALUE _OPERATOR_REQUEST: 
01318 VALUE_OWNER UIC: 
0131¢ VALUE PAGE SETUP MODULES : 
01322 VALUE _PARARETER. 1: 
01328 VALUE_PARAMETER_ 
-BLKB 


MODULES: 


“ALO RDO —ZwzZrvzZ—2— 
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YOs2000 : 1ergeei13ee 93:99:95 «= Eabacte sae iacconpune 682; ~~ <2 


0132E VALUE_PARAMETER_3: 
01334 VALUE _PARARETER 
0133A VALUE PARAMETER 
01340 VALUE “PARAHETER 
01346 VALUE _PARARETER. 
0134C VALUE_PARAMETER_ 
01352 VALUE -pRignity: | 
01353 VALUE -PROCESSOR: | 
01359 VALUE -PROTECTION: | 
0135D VALUE EE: | 
01363 VALUE -AUEUE FILE_SPECIFICATION: | 
01369 VALUE_RELATIVE_PAGE: | 

| 


te 
é 


BEA Oo #50" = owone 


0136D VALUE RESERVED, INPUT. 1: 

0136E VALUE -RESERVED_ INPUT_2: 

01370 VALUE ~RESERVED_IN INPUT_3: 

01374 VALUE -RESERVED_ INPUT. 4: | 
0137A VALUE -RESERVED_ OUTPUT_1: | 
01384 VALUE _RESERVED OvrPUT. 2: 
O138E VALUE SEARCH. STRING: 
01394 VALUE -SCENODE. _NAME : | 
0139A VALUE -WSDEFAULT: 

0139C VALUE_WSEXTENT: | 
0139E VALUE “WSUOTA: . | 


LK 2 
013A0 VALUE STORAGE _ os 


eecececuw 
DwDWDOwWwOwo 
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WOse0o8 io : e-geen13Re 99:48:95 «| Habacte sae iaeconsun o$2:1 


«EXTRN LEA TE per neg AnwER 


ALLOCATE VARIABLE _DATA 
UEVE FILE 

AD “RECORD, REWRITE RECORD 
~ INC yin tl & SERVICES 


.V LE_DATA 
XT STORES VARIABLE DATA_LIST 
XTRN OCR a FIL 
XTRN SySS6B~ pe pare SYS$GB_DEFQUEPRI 
-PSECT CODE,NOWRT,2 


O88 -ENTRY md SFX_ENTRY, Save R2,R3,R4,R5,R6,R7 
0 MO R? 


mo sre. READ (R6) 
ROvL sohe, 304 32(R6) 


rH of eae: 
om f 8 8B 
8H oft & B 


; Routine Size: 28 bytes, Routine Base: CODE + 0000 


SELES SES FSCS e ee SO ee — 


13 
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12r08- 138s 98:45 FS Met Othe Saeconpost eS2:1 we ci V 
; 170 } oh } GLOBAL ROUTINE UPDATE_SQX_ENTRY(SQE,SMQ_N,SMQ): NOVALUE= : 
: 1% 1 1 le : 
; (17 1 19 1! ; 
: 17% 1211 1 | FUNCTIONAL DESCRIPTION: ; 
: \e? } i } This routine updates an SQX entry from the corresponding SMQ record. : 
; 179 1214 1 | INPUT PARAMETERS: : 
: 178 1215 1! SQE - Pointer to SQX entry. 3 
3; 17 1 16 1! SMQ_N - Record number of a $ 
: 4 : : : sma - Pointer to SMQ. : 
3 18¢ 13 ! IMPLICIT INPUTS: ; 
: 184 1221 1: | : 
> 185 1 g 1 ! OUTPUT PARAMETERS: 3 
; 186 1 1! NONE : 
: 18 1226 1: : 
; 138 ! ; | IMPLICIT QUTPUTS: : 
: 190 1 37 1 i : 
; (191 1228 1 |! ROUTINE VALUE: : 
3 13§ 1 $3 ’F NONE : 
: I 158) 1 i SIDE EFFECTS | ; 
Seok: Bete et 
: 197 i$ 1 lee | : 
: 13 13 5D eecin | 
; oO 1534 _— SOE REF BBLOC ' Poi $Q | 
3 : K, ! Pointer to x t é 
: 202 1239 SMa: REF BBLOCK:  ! Pointer to SMQ | 
: 204 1241 : 
3 $03 1342 CHSMOVE (SMQ$S_NAME, SMQCSMOQST_NAME], SQECSQX$T_NAME)); 3 
: 206 124 SQECSQX$SL_QUEDE_LINK] = .SMQ_fA; 3 
3 $02 1244 SQECSQX$L-FLAGS] = 0; 3 
: 208 1245 IF .SMOCSMOQ$V BATCH | : 
; 209 1246 THEN SOECSOXSV BATCH] = TRUE; : 
: 210 1247 IF NOT .SMQ snasy GENERIC QUEUE AND .SMQCSMQ$L_ASSIGNED_QUEUE_LINK] EQL 0 : 
3: 211 1248 THEN SQECSOX$)_EXECUTOR] = TRUE; 3 
3 12 1249 IF - SROCSROSY GENERIC SELECTION) : 
> 21 1250 THEN SQECSQX$v_SENERIC_SELECTION] = TRUE; 3 
: 214 1251 END; : 
OOFC 000 .ENTRY UPDATE_SQX_ENTRY, Save R2,R3,R4,R5,R6,R7 : 1207 ; 
57 Oc ac 00 iit MOVL SMa, R7 ~ > 1242 | : 
26 06 =A ? 0006 MOVL soc. Rg : 3 
Cc 20 28 000A MOVES #32, 176(R7) (RO) : ; 
Ab 08 AC 00 9 19 MOVL MON, 36(R65 : 1243 3 
20 AG D4 0001 CLRL (RGS > 1344 | 
04 C aA? €9 00018 BLBC 12(R7), 1$ ; 1245 | 3 


REQHBYTE ute record maniouLatfon uttLities I:HESHOES QSIBS WMGUN SM EaBEONSACTH,y 


o 8M i ss YR? He HRD on ie 
2c a? iste : (Rr?) : 

oO A A BISB2 #2, 32(R6) + 1248 

04 hice 2s: BBC #3, 13(R7), 3$ + 1249 

0 Ab 8 000 BISB2 #4. 32(R6) : 1250 

04 00037 3$: RET 1251 


; Routine Size: 56 bytes, Routine Base: CODE + O01C 
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GLOBAL ROUTINE CREATE_SFM_RECORD(;SFM_N,SFM): L_OUTPUT_2= 


14 


! 
FUNCTIONAL DESCRIPTION: 
This routine allocates and initializes a form definition record. 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
SFM_N - Record number of SFM. 
SFM - Pointer to SFM. 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
Completion status. 


SIDE EFFECTS: 
NONE 


BEGIN 
MAP 


REF BBLOCK; ! Pointer to SFM 


LOCAL : 
STATUS; ! Status return 


: Allocate the queve record, and return if no more. 
STATUS = ALLOCATE_RECORD( ; SFM_N, SFM); 

IF NOT .STATUS THEN RETURN .STATUS; 

: Initialize the form definition record. 
SFMCSYMSB_TYPE] = SYMSK_SFM; 

HSWCHAR 


CHSWCHAR ( 
. VALUE_FORM_NAMECSDSC_W_LENGTH, 
SEMESFAST. NAMED) ; nal a 

CHSCOPY ( 

. VALUE_FORM_NAME[SDSC_W_LENGTH) 
VALUE ~FORM~NAMELSDSC-A~POINTERJ, 
Sf 


MSS_NAME-1, 
SFMCSFMST_NAMEJ+1); 


. CHSCOPY ( 


FMSS_NAME, SFMCSFMST_NAME], 
SFMSS_DESCRIPTION, SFMCSFMST_DESCRIPTION)); 


Sm 


RECORDUTL Queue record manipulation utilities 18-50 -1984 7 AX-11 Bliss-32 V4.0- Page 14 | 
teed , 8ep-1984 99: 8: 3 JOBCTL. SRC IRECORDUTL. ago, :1 ° (5) | 
: 273 1309 2 CHSMOVE(SFMSS NAME, SFMCSFMST_ NAME] SFACSFRST STOCK]); 
: 27% 1 10 SFMCSFMSL warn) ; VALUE _FORM_NUMBER si 
: 275 131 SFMCSFMS$B- LENGTH | 
: oe? 1 i SFMESFMSW-WIDTH] = 
Be 131 SFMCSFMSB MARGIN port 1325 = 6; 
: 278 1314 2 SFMCSFMSV-{TRUNCATE) = TRUE; | 
; 79 1315 
3; 280 1 16 | 
: 281 131 SS$_NORMAL 
3 282 1318 1 END: | 
0OFC 00000 .ENTRY CREATE_SFM -RECORD, Save R2,R3,R4,R5,R6,R7 = 1252 
57 00000000" EF 9E 90002 MOVAB VALUE FORM : 
000000006 EF 99 FB 00009 CALLS ScLocATe FR _RECORD : 1289 
A 0 E9 99019 BLBC erATUS 1$ + 1290 
04 AB 02 90 0001 MOVB He 4( SFM) + 1295 
56 0110 cB 3 0017 MOVAB 272(SFM), R6 + 1298 
66 67 90 0001C MOVB. VALUE_FORM_NAME, (R6) : 
1F 00 02. 87 aol 67 2c O001F MOVCS VALUES sp oR ENA NAME: @VALUE_FORM_NAME+2, #0, + 1304 
0100 «&F 00 66 ~ 20 2c 900 8 MOVCS A (R6), #0. #256, 16(SFM) : 1308 
0134 CB 66 20 28 00031 MOVC3 = #32, (RO) , 308(SFM) : 1309 
0130 CB 06 A? DO 00037 MOVL VALUE FORM_NUMBER, 304(SFM) : 1310 
0158 (CB 06420084 8F 00 0003p MOVL #10 Os98B804. 344 (SFM) + 1312 
0C AB 02 88 00046 B1SB2 #2, FMS > 1314 
50 01 DO 0004A MOVL : 1318 
04 00040 1$ RET : 
; Routine Size: 78 bytes, Routine Base: CODE + 0054 


v6 
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¢ } 33 ! GLOBAL ROUTINE APPLY_SFM_OPTIONS(SFM)= ; 
Be 1321 1 !4¢ : 
1 § 1 i ; 

es 1 i! rene DESCRIPTION: ; 
34 : 2 : } This routine applies options to a form definition record. ° 
91 1 § 1 i INPUT PARAMETERS: ‘ 
9 1 1! SFM - Pointer to SFM. 6 
9 1 8 -. ‘ 
94 1 1 ! IMPLICIT INPUTS: ° 
95 } ? : Existing values in SFM. ° 
9 1 2 1 | OUTPUT PARAMETERS: é 
BS 8 | eee 3 
00 1335 1 | IMPLICIT OUTPUTS: é 
4 ; 3 : : New values in SFM. ° 
08 1338 1 ' ROUTINE VALUE: : 
Be ; 4 ; Completion status. ° 
06 1341 1 ' SIDE EFFECTS: : 
07 1 ri} 1! NONE ° 
08 1343 1/3 ‘ 
1 Ge Baas 
He TE gs : 
ig 1348 SFM: REF BBLOCK; ! Pointer to SFM : 
14 1349 2 LOCAL : 
15 1350 LSFM: BBLOCKCSYM$S_SYM], ' Saved copy of original SFM : 
1 132) am FINAL_STATUS; i Final routine status : 
318 1388 PROTECTED_UPDATE; : 
et: : 
21 1328 Set up for backing out the transaction in case of an error. : 
38 1358 CHSMOVE (SYMSS SYM, .SFM : 
4 1359 CHSE ILL (9. SFASS _FORM_ certo. PROBULES, SF 4a Bt MST_FORM_SETUP_MODULES]); 4 
25 1360 CHSFILL (0; SF mss. PAGE SETUP “MODULES, SFMCSFMST_ PAGE “SETUP. _~MODULES)); : 
6 1361 2 FINAL_STATUS = NORMAL; ; 
1306 PROTECTED TUPDATE: “BEGIN ‘ 
Fee : 
$3 1365 IF .ITEM_PRESENTCSJC$_FORM_DESCRIPTION] : 
3) 1366 THEN 3 
§ 1367 4 BEGIN é 
3 1368 4 CHSWCHAR ( 3 
34 136? 4 svALUE FORM_DESCRIPTIONCSDSC_W_LENGTH), $ 
35 1370 4 SFMLSFAST_DESCRIPTION)); 3 
$$ 1371 4 omcorr ; 
1 a 4 VALUE_FORM_DESCRIPT 44S pate : 

$ ! o ? * VALUE “FORM_DESCRIPTION SDSC~A~POINTERS, : 
40 1375 4 SFM$S_DESCRIPTION-1, : 
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; 341 1376 SFMCSFMST_DESCRIPTIONI+1); 
3 rk 137 END; : 
; 544 1379 ; 
: 345 1380 3 IF. ITEM_PRESENTCSJCS_FORM LENGTH] | ; 
: 4 : SFMCSFMSB_LENGTH] = .VALUE_FORM_LENGTH; | é 
: 349 1384 | ; 
i 330 1385 § If .ITEM_PRESENTCSJCS_FORM_MARGIN, BOTTOM] 3 
; 2g : : SFMCSFM$B_MARGIN_BOTTOM] = .VALUE_FORM_MARGIN_BOTTOM; | : 
: 354 1389 | ; 
i 335 1390 § IF. ITEM_PRESENTCSJCS FORM MARGIN, LEFTJ ; 
; 3 1398 SFMCSFMSW_MARGIN_LEFT] = .VALUE_FORM_MARGIN_LEFT; ; 
: 359 1394 ; 
: 360 1395 3 IF .ITEM_PRESENTCSJCS_FORM_MARGIN, RIGHT 3 
; 6¢ 1397 SFMCSFMSW_MARGIN_RIGHT] = .VALUE_FORM_MARGIN_RIGHT; : 
2 : 
; 365 1400 § IF. ITEM_PRESENTCSJCS_FORM_MARGIN, TOP] ; 
: 367 1408 SFMCSFMSB_MARGIN_TOP] = .VALUE_FORM_MARGIN_TOP; ; 
: 369 1604 3 
; 370 1405 § IF .ITEM_PRESENTCSJCS_FORM_ NUMBER] : 
: 372 1407 3 SFMCSFMSL_NUMBER] = .VALUE_FORM_NUMBER; : 
Ho BY ; 
: 375 1410 3 IF .ITEM_PRESENTCSJC$_FORM_SETUP_MODULES) i 
: 379 1212 i THEN BEGIN F 
; 378 1418 4 FINAL STATUS = STORE_VARIABLE_DATA( 2 
; 380 1415 4 SFMSS_FORM_SETUP_MODULES, ; 
; 381 1416 4 SFMCSFMST_FORM SETUP_MODULES), ; 
: 38 1417 4 SYMSK_FORM_SETOP_MODOL ; 
; 383 1418 4 . VALUE _FORA_SETUP_MODULESCSDSC_W_LENGTH) ; 
i 384 1419 4 " VALUE FORM SETUP~MODULESLSDSC-A-POINTERS) ; 3 
; 85 1420 4 IF NOT .FIRAL_STATUS. THEN LEAVE PROTECTED_UPDATE; | : 
Pee |e ee 
: 389 138 IF .ITEM_PRESENTCSJCS_FORM_SHEET_FEEDJ | 
: 391 1426 SFMCSFMSV_SHEET_FEED] = TRUE; ; 
1S pe 
; 34 1409 § IF . ITEM_PRESENTCSJC$_NO_FORM_SHEET_FEED) 3 
: 396 1431 SFMCSFMSV_SHEET_FEED) = FALSE; | ; 
; 597 1432 ; 
} 
t 
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a 1o=3eR 1 382 90:39:95 ANBCTL SRETRECONDUGL 62:1 . (6) | 
1433 
1434 3 IF_.ITEM_PRESENTCSJC$_FORM_STOCK] 
1435 3 THEN 
14 6 i BEGIN 
1437 4 CHSWCHAR( 
1438 4 . VALUE_FORM STOCK SDSC_W_LENGTH), 
1439 4 SFMESFAST_STOCK); 
1440 4 CHSCOPY ( 
1441 4 ‘ ALUE FORM STOCK ESDSC_W_LENGTH] 
1449 4 VALUE ~FORM~STOCKCSDSC_A~POINTERJ, 
1444 4 SFM$S_STOCK=1 
1445 4 SFMCSFMST_STOCK}+1); 
1446 D; 
1447 
1448 
1449 3 IF .ITEM_PRESENTCSJC$_FORM_TRUNCATE) 
1450 3 THEN 
1451 4 BEGIN 
1458 4 SFMCSFMSV_TRUNCATE] = TRUE; 
1453 4 SFMCSFMSV—WRAP] = FALSE; 
1454 END; 
1455 
1456 
1457 ; IF . ITEM_PRESENTCSJC$_NO_FORM_TRUNCATE] 
1459 SFMCSFMSV_TRUNCATE) = FALSE; 
180 
1468 3 IF . ITEM_PRESENTCSJC$_FORM_WIDTH) 
1464 ; SFMCSFMSW_WIDTH] = .VALUE_FORM_WIDTH; 
1266 
1467 ; IF .ITEM_PRESENTCSJC$_FORM_WRAPJ 
1468 3 THEN 
1469 4 BEGIN 
1470 4 SFMCSFMSV_TRUNCATE) = FALSE; | 
1471 4 SFMCSFMSV-WRAP) = TRUE; 
1478 3 END; | 
147 
1474 | 
1425 If . ITEM_PRESENTCSJC$_NO_FORM_WRAP] 

| 

1499 SFMCSFMSV_WRAP] = FALSE; | 
1499 | 
1480 3 IF .1TEM_PRESENTCSJCS$_PAGE_SETUP_MODULES) 
1481 THEN 
1482 4 BEGIN 
1b 4 FINAL_STATUS = STORE_VARIABLE_DATA( 
1485 4 SFM$$_PAGE_SETUP_MODULES, | 
1486 4 SFMCSFMST PAGE SETUP MODULES), | 
1487 4 SYMSK_PAGE_SETOP_MODOLES | 
1488 4 . VALUE _PAGE_SETUP_MODULES[SDSC_W_LENGTH) 
1489 4 ’ VALUE ~PAGE~SETUP~MODULESLSDSC~A~POINTERS); 
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$3? if A -FINAL_STATUS THEN LEAVE PROTECTED_UPDATE; 
28 | 
459 IF .SFMCSFMSW_MARGIN_LEFT] + .SFMCSF usu MARGIN_RIGHT) GEQU » SEMESENSH UI TH] 
o60 OR gore SFMSB_MARGIN_TOP) + .SFMCSFMSB_MARGIN_BOTTOM) GEQU .SFMCSFM$B_LENGTH] 
46 
46 FINA L status = JBC$_INCFORMPAR; 
464 LEAVE” PROTECTED_UPDATE; 
465 END; 
466 
467 
re 3 END; ! block PROTECTED_UPDATE 
470 
471 IF .FINAL_STATUS 
47 THEN 
47 BEGIN 
474 IF .ITEM_PRESENTCSJC$_FORM_SETUP_MODULES) 
oc3 OR gtTERe ~PRESENTCSJC$_NO_FORM_SETUP_MODULESJ 
477 DEALLOCATE_VARIABLE PATAC 
478 SFMS$S_FORM_SETUP_MODULES, 
rt 8 4 : PSFMESFMST~ FORM SeTUPL _MODULES]) 
481 CHSMOVE ( 
482 SFMS$S_FORM_SETUP_MODULES, 
LSFMCSFM$T FORM SETUP MODULES), 
SFMCSFMST_FORM_SETUP_MODULES)); 


GE_S 
OR .ITEM_PRESENTCSJC$_NO_PAGE_SETUP_MODULES) 


EN 
SEAL CATE VARIABL ESD 
SFM$S_PAGE_SETUP DULES, 
I SFMESEMST= ~PAGE Pep MODULES]) 


LSE 
CHSMOVE ( 
SFMS$S_PAGE_SETUP_MODULES, 
LSFMCSFMST-PAGE SETUP MODULES), 
SEMCSEMST _PAGE_SETUP_MODULES)); 


IF .ITEM_PRESENTCSJC$_PA ETUP_ MODULES] 
| 


END 


BEGIN 
DEALLOCATE_ VARIABLE phos 
SFM$S_FORM SETUP MODULES, 
SFMCSFMS Tro SETUP MODULES]); 
DEALLOCATE VARIA Tt 
AGE SETUP. ODULES, 
SFMCSFMST_PAGE USETUPL MODULES); 
CHSMOVE (SIRES SYM, LSFM, .SFM); 
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; 512 1547 1 END; 


OFFC 00000 ENTRY APPLY _SFM_OPTIONS, Save R2,R3,R4,R5,R6,R7,- ; 1319 : 

B 900000 OG EF 9 9002 MOVAB DEALLOCATE VARIABLE_DATA, R11 : F 

A 000000 : EF 9E 000 MOVAB Tes PRESERT+7, R1 : ; 

E FE CE 9E 0001 MOVAB =5i2TSP), SP : ; 

6 4 AC 001 MOVL. SFM, R + 1358) : 

6E $6 9200 BF 01 MOvCS #512, (R6), LSFM : | : 
9 015D C6 9E OOOTF MOVAB 349(R6), RO + 1359. ; 

06 00 6E 09 2¢ 99 4 mMOVCS #0, (SPS, #0, #6, (ROD : : 
58 0163 6 9E 999 A MOVAB 355(R6), RB ; 1360 F 

06 00 6E 99 2c O0¢F movcS #0, (SPS, #0, #6, (RB) : | ; 
57 01 09 809 5 MOVL #1, FINAL_STATUS : 1361. : 

13 FF AA E9 00038 BLBC _—s«dI'TEM_PRESENT+6, 1$ ; 1365) ; 

10 Ab ooB¢ CA 90 9003¢ MOVB.  VALUE_FORM_DESCRIPTION, 16(R6) : 1370) F 

OOFF 8F 00 OOBE DA OBC CA 2C 00042 MOVCS VALUE ~FORM"DESCRIPTION, - : 1376 F 
11 Ab 00040 @VALUE_FORM_DESCRIPTION+2, #0, #255, 17(R6) ; : 

07 FF OA 01 3 0004 1$: BBC #1, ITEM PRESENT+6, ; 1380) ; 
015A C6 00c2 CA 90 00054 MOVB - VALUE_FORM LENGTH, 346(R6) ; 1382) ; 

07 FOAA 02 gi 00058 2s: BBC #2, ITEM_PRESENT+6 : 1385 ; 
015B C6 00c3 CA 90 00060 MOVB § VALUE_FORM_ MARGIN BOTTOM, 347(R6) : 1387 E 

07 FF OA 03 €1 00067 3$: BBC #3, ITEM PRESENT+S. 4 : 1390| ; 
0154 6 00c6 «6 CAs«#BO 0006¢ MOVW VALUE_FORM MARGIN LEFT, 340(R6) : 1392 | F 

07 FF AA 04 €1 00073 4$: BBC #4, ITEM_PRESENT+6, : 139 3 
0156 «666 00c6 «CA BO 90078 MOVW § VALUE_FORM MARGIN RIGHT, 342(R6) + 1397 r 

07 FF OA 05 €1 OOO7F 5$: BBC #5, ITEM _PRESENT+6, 6 : 1400 ; 
015C = C6 00c8 =A 30 00084 MOVB - VALUE_FORM_MARGIN_TOP, 348(R6) : 1402 ; 

FF AA 9 00088 6$: ist LTEM_PRESERT+o > 1405 : 

0130 C6 OOCF CA 00 00090 MOVL § VALUE_FORM_NUMBER, 304(R6) + 1407 3 

1E 6A €9 00097 7S: BLBC ITEM_PRESERT+7, + 1410 3 

OODD CA po QO09A PUSHL VALUE_FORM_SETUP_MODULES+2 3 1419 ; 

7E 00DB CA 3C 9009 MOVZWL VAL UE“FORM_SETUP_MODULES , -(SP) : 1418 : 

Bo BP seit hoot Stal | 

06 DD OOOA PUSHL #6 : ; 

56 DD OOA9 PUSHL  R6 F : 

000000006 EF 6 FB 000 CALLS #6, STORE_VARIABLE_DATA : : 

7 0 D 9008 MOVL RO, FINAL~STATUS ; : 

78 7 €9 0008 BLBC - FINAL_STATUS, 17$ > 1420) : 

04 6A 02 ; 00088 8$: C #2, ITEM PRESENT+7, 9$ : 1424. ; 
OC Ab ot 8 o0e¢ BISB2 | ¥ ) > 1426 | 3 

04 6A 3 fi 00CO 98 C #3, ITEM_PRESENT+7, 10S : 1429 | : 
OC A6 01 A 0004 B1(B2 * 12(R8) > 1431 | : 

1 6A 4 a 00C8 10$: BBC #4; ITEM PRESENT+7, 118 > 1434 | : 
134 (6 0&1 CA 90 doce MOVB. VALUE_FORM_STOCK, $08(R6) : 1439 : 

1F 00 OE3 DA of} cA 2c 9003 MOVCS VALUE F RM STOCK, @VALUE_FORM_STOCK+2, #0, -: 1445 | ; 
° Ps | 2 

08 6A 5 €1 OOODF 11$: BBC #5, ITEM PRESENT+7, 128 > 1449 | : 
OC AG $3 fa 00E3 BISB2 #2. 12(R8) > 1452 | : 


14 
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OC Ab 4 8A 000E7 81(B2 : 1453) : 

04 6A Og 1 OO00EB 128: BBC A ITER. CPRESENTS?7, 13$ + 1457) : 

OC Ab A OOOEF BICB2 + 1459 ; 

6A ; a8 13$ iste Tem. it ee > 1462) : 

0158 c6 00g? CA 8B OF MOVW $VALUE_FORM_WIDTH, 344(R6) + 1464) : 

1 AA FE 14$:  BLBC bien M_PRESERT* , 158 : 1467 : 

C Ab 2 BA 001 Bice e. 1g(R6) + 1470. ; 

C Ab 4 8 1 B1S8 6, 12(R6) + 1471) ; 

04 1 AA 1 5 10A 15$: BBC i. ITEM PRESENT+8, 16$ + 1475. : 

‘ Ab 4 8A 0010F BICB2 #4, 12(RB) + 1477 ; 

1€ AB 3 £1 91 ; 16$: BBC #3. ITEM PRESENT*#14, 18$ > 1480) : 

0517 CA 0D 0011 PUSHL VALUE_PAGE_SETUP_MODULES+2 ; 1489 | ; 

7E 515 CA 3C OO1IC MOVIEL VALUE PAGE SETUP “MODULES, -(SP) + 1488 | : 

13 0D 91 1 PUSHL #1 ; 1486, : 

58 0D 001 PUSHL R8 : ; 

06 DD 001 PUSHL #6 : | 3 

6 DD 001 PUSHL  R6 : | ; 

000000006 EF g FB 00129 CALLS #6, STORE -VARIABLE _DATA : ; 

7 DO 001 MOVL RO, FINA TUS : : 

48 5 0133 178:  BLBC  FINAL_S ib bes : 1490. F 

0 0154 (6 3C 00136 18$: MOVZWL 340 (RB) + 1494 i 

1 0156 cé ¢ 01 MOVZWL 342(R6). F | : 

0 1 (6 0014 ADDL2 RT. RO : | : 

50 0158 6 10 00 ED 0014 CMP7V #0. #16, 344(R6), RO : : 

16 1B OO14A BLEQU § 19$ ; : 

50 15¢ C6 9A 0014C MOV ZBL 348(R6) RO : 1495) ; 

51 158 £6 9a 00151 MOVZ 47(R6), R1 ; : 

50 1 CO 00156 ADDL2. R11, RO ; | : 

50 O1SA C6 08 09 ED 00159 CMPZ7V #0. #8, 346(R6), RO ; ; 

07 1A 00160 BGTRU 20$ : | : 

57 00048168 i D0 0162 19$ MOVL #295272, FINAL_STATUS + 1498 ; 

5 7 £9 00169 208 BLBC -—« FINAL_STATUS, : 1506 3 

04 6A £8 0016C BLBS ITEM BRESENTS 47, 218 : 1509 5 

0B 6A 01 a 0016F BBC #1, ITEM_PRESENT+7, 22$ : 1510 ; 

FFSD «6CD OOF 00173 21$ PUSHAB LSFM+349~ : 1514 : 

96 DD 0017 PUSHL #6 ; : 

02 FB 00179 CALLS We DEALLOCATE_VARIABLE_DATA ; ; 

06 11 0017¢ BRB 23§ ; : 

06 28 OO17E 328: MOVC3 Hg. LSFM+349, (R9) : 1519 : 

03 £0 00184 23$: BS ITEM_PRESENT+14, 248 : 1388 3 

04 fl 0189 BBC a yl dee PRESENT+14. 25$ : 13 | 3 

FF63 CD SF OO1BE 248 PUSHAB : 1527 : 

$ DD 019 PUSHL re : : 

é 8 3135 CALLS DEALLOCATE_VARIABLE_DATA : : 

06 <8 199 25$:  MOVC3 i: LSFM+355, (RB) : 1532. ; 

14 11 0019F BRB 27$ : 1506 : 

59 DD OO1A1 26$ PUSHL R9 : 1538 : 

DD OO1A PUSHL ‘ ; : 

FB OO1A CALLS , DEALLOCATE_VARIABLE_DATA : : 

DD OO1A PUSHL R > 1541. : 

$ DD OO1AA PUSHL # ; | 3 

F QiAC CALLS #2, DEALLOCATE_VARIABLE_DATA : : 

0200 8F 28 OO1AF MOVC3 #512, LSFM, ( ; 1543 | : 

7 DO 00185 278 MOVL FINAL_STATUS, R : 1547. : 

04 00188 RET ; | : 
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; Routine Size: 441 bytes, Routine Base: CODE + O00A2 


: 


scan raglan ge erat A RU se 


’ 13 } rt } GLOBAL ROUTINE DELETE_SFM_RECORD(SFM_N,SFM): NOVALUE= ‘ 
; 16 1 1 t+ : 
: 1 1 1 i ‘ 
: 18 1 1! FUNCTION DESCRIPTION: ‘ 
; 4 ; Z : This routine deallocates a form definition record and its substructures. ‘ 
: 521 1555 1 | INPUT PARAMETERS: | : 
3 § 1 § 8 SFM_N - Record number of SFM. . 
; ? ; ; SFM - Pointer to SFM, ° 
3 5 12 § 1 ! IMPLICIT INPUTS: : 
; $ 1560 1! NONE : 
3 1561 1! : 
; 8 1286 1 ! OUTPUT PARAMETERS: ° 
3 5 1565 1! NONE : 
3 1564 1! ° 
; 531 1565 1 | IMPLICIT OUTPUTS: | : 
; é 1566 1 | NONE | : 
; 53 1567 1} | : 
; 1568 1 | ROUTINE VALUE: | : 
3 5 1369 . 2 NONE | : 
; 1570 1! : 
; 1571 1 | SIDE EFFECTS: : 
3 8 1326 1! NONE ° 
; 339 1573 1 | : 
: 540 1574 1 in | : 
3 e¢) 1575 1 . 
; ¢g 1328 § BEGIN ° 
: 54 157 ‘ 
3 2¢6 1378 SFM: REF BBLOCK; ! Pointer to SFM ; 
: 546 1580 | : 
; 4 1381 Deallocate the fixed/variable data areas, if they exist. . 
; 268 1383 DEALLOCATE VARIABLE pat : 
; 330 1584 SFMSS FORM, SETUP MODULES : 
3 51 1585 SFMCSFMST m_SETUr MODULES); ° 
3 2g 15 DEALLOCATE VARIABLES Arar ‘ 
; 5 158 S_PAGE SETUP MODULES, ° 
; 554 1588 SFMCSFMST_PAGE USETUP MODULES); | : 
; HHA 133) : Deallocate the form definition record. : 
: 236 1398 DEALLOCATE_RECORD(.SFM_N); : 
; 560 1594 END; ° 
52 poongngac 1°” ie BNE" BEETEGRTE-DESMG:e BStana fom 25] 

76 —08-—At. BO0001 5D ADDLS | B8CDS SPMC~CePS : 1585 

Big PUSHL *, } ; ° 

62 Sie #2, DEALLOCATE_VARIABLE_DATA 5 é 


’ 


ago md lmpemie ni IEREEHOEE UNAS SSS RNMbihen Me F 


7E 08 AC 00000163 i #355, SFM, =(SP) ; 1588 | 
62 #3, DEALLOCATE VARIABLE _DATA ; | 

0% AC PUSHL .N : 1593 

000000006 EF 01 #1,” DEALLOCATE_RECORD ; | 
RET ; 1596 | 


; Routine Size: 48 bytes, Routine Base: CODE + 0258 


error TL Queue record manipulation utilities 18-Sep-19 4 00: 48:97 AX-1 


Bliss-32 V4.0- 
14-Sep-1984 ¢j 


1 74 Page $3 
JOBCTL.SRCJRECORDUTL.B52;1 (8) 


P4 rs ! 95 ! GLOBAL ROUTINE CREATE_SMQ_RECORD(;SMQ_N,SMQ): L_OUTPUT_2= 
; 5646 1 3 1 tee 

3 65 1 a8 7 ! 

: 66 1 1 ! FUNCTIONAL DESCRIPTION: 

3 4 1oR9 } : This routine allocates and initializes a queue header record. 
3 +4 16 ¢ 1 ! INPUT PARAMETERS: 

3 0 1 1! NONE 

3; 571 16 1! 

3 7 1605 1 ! IMPLICIT INPUTS: 

3 7 1986 1! NONE 

3 74 16 1! 

: 75 1608 1 ! OUTPUT PARAMETERS: 

3; 3? 1609 1! SMQ_N - Record number of SMQ. 
: 7 1610 1! SMC - Pointer to SMQ. 
3 8 1611 1°! 

s 7 1616 1 ! IMPLICIT OUTPUTS: 

; 580 16135 1! NONE 

; 581 1614 1! 

3 266 1615 1 ! ROUTINE VALUE: 

; 58 1616 1! Completion status. 

; 586 161 1! 

; 585 1618 1 ! SIDE EFFECTS: 

; 586 1619 1! NONE 

3: 587 1620 1! 

; 588 1621 1 !-- 

; $89 16 ; 1 

3s 390 16 BEGIN 

; 591 1624 MAP 

3 238 1625 SMQ: REF BBLOCK; 

3 re 1626 LOCAL 

: 94 1627 STATUS; 

: 595 1628 

; 596 1629 

3 rd 1o99 Allocate the queue record, and return if no more. 
3 296 1636 STATUS = ALLOCATE_RECORD( ; SMQ_N, SMQ); 
; 600 163 IF NOT .STATUS THEN RETURN .STATUS; 

; 601 1634 

: 60 1635 

; 60 1636 ! Initialize the queue header record. 

3; 6046 1637 ' 

; 605 16 8 SMOCSYMSB_TYPE] = SYMSK_SMQ; 

; 6 16 SMOQLSMQS$V-GENERIC SELECTION) = TRUE; 

; 60 1640 2 SMOCSMQ$V—JOB_SIZE_ SCHEDULING] = TRUE; 

; 608 1641 SmQ SMQ$V"PAGINAT J = TRUE; 

3; 609 1066 SMQLSMQSV_STOPPED] = TRUE; 

; ei? bo MOCSMOSV_SWAP] = TRUE; 

; ols 1645 VAL QUEUE CSOSCU_LENGTHI, 

; 61 1o%8 SmQ SMOST_NAME ); 

3; 614 164 CHSCOPY ( 

: 615 1648 - VALUE_QUEUECSDSC_W_LENGTH) 

: 616 1649 VALUE ~QUEUECSDSC-A~POINTERI, 

; 618 1651 SMQ$S_NAME-1, SMQCSMOQ$ST_NAME]+1); 


] 


H 14 
RECORDUTL Queue record manipulation utilities 19 Sep-1984 AX-11 Bliss-32 V4.0-74 P 5 
vente r 1e-8ee=13be 93:39:95 | Fodecte tae Sacconous: 6S2;1 age of} | 


I . 8 C; 
i707 = 18° T10t411001111011"; ! S:E, O:D, G:R, W:W 
| 


T) = 1; 
SMQCSMQ$B "BASE ORITY) = .SYSSGB_DEFPRI; 


SIP AA AAC. 
CUSWN—O”9 
a 
AAAAAAAO 


¢ SMQCSMOQSL_OWNER 

SMQ[ SMOSW"PROTE 
Q SMQLSMQ OBL 
55 


$S$_NORMAL 
END; 


007¢ 000 ENTRY CREATE SMa RECORD, Save R2,R3,R4,R5,R6 
56 00000000" EF 9E a092 MOVAB VALUE € GUEUE 
000000006 ef 0 FB 000 CALLS ACLOCATE RECORD 

F 34 001 BLBC srArUs i$ 
06 =A 06 0 0001 MOVB ona) 8 
0D AB 0248 F A8 0001 BI Su2 Abs, 13¢Smq) 1 
OF AB 02000020 8F C8 0001D BISL2  #33554464, 14(SMQ 2 
0080 CB 66 30 00025 MOVB. «VALUE “QUEUE. 176( (Sma 6 
1F 00 02 66 2C 0002A MOVCS VALU UE~QUEUE, @VALUE OQUEUE+2, #0, #31, 51 

0081 CB 000 9 177( 
0000 «cB EFB3 (6 00 000 MOVL JBC_UIC, 208(SMQ) 52 
0104 (CB DE7B «BF «OBO 0003A MOVW #-8581, 260(SMQ) 5 
0116 (CB 01 90 00041 MOVB sot ono) 654 
0114 (CB 000000006 00 90 00046 MOVB § SYSS$GB_DEFPRI, 276(SMQ) 655 
50 01 DO 0004F MOVL #1, RO 659 
04 00052 1$ RET 


; Routine Size: 83 bytes, Routine Base: CODE + 0288 
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rb-bep-1964 00:18:27 yaxest BL 


GLOBAL ROUTINE APPLY_SMQ_OPTIONS(SMQ)= 


ee 

i 

' FUNCTIONAL DESCRIPTION: 

: This routine applies options to a queue header record. 


INPUT PARAMETERS: 
SMQ - Pointer to SMQ. 


IMPLICIT INPUTS: 
Existing values in SMQ. 


OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
New values in SMQ. 


ROUTINE VALUE: 
Completion status. 


SIDE EFFECTS: 
NONE 


BEGIN 
MAP 
LOCAL SMQ: REF BBLOCK; ' Pointer to SMQ 
LSMQ: BBLOCKCSYM$S_SYMJ, ' Saved copy of original SMQ 
8. FINAL_STATUS; i Final routine status 


PROTECTED_UPDATE; 


: Set up for backing out the transaction in case of an error. 
CHSMOVE (SYRSS i. ste 

CHSFILL(O, SMOSS RESET AO nODULES. SMQCSMQ$T_JOB_RESET_MODULES]); 
Prax at L "GENERIC TARG 

FINAL_STATUS = SSS$_NOR AMAL: 

PROTECTED “UPDATE : “BEGIN 

fe Ie STOL TSS COREL NERY BATCH_EXPLICIT]) 


Ha (. ITEM_PRESENTCSJC$_BATCH] AND NOT .SMOQCSMQ$V_BATCH)) 
(. ITEM_PRESENTCSJC$_NO_BATCH] AND . SMOCSMQSV BATCHI) 


RETURN JBC$_INCQUETYP; 


IF .1TEM_PRESENTCSJC$_BASE_PRIORITY) 
SMOCSMQ$B_BASE_PRIORITY] = .VALUE_BASE_PRIORITY; 
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JOBCTL.SRC 


IF_.ITEM_PRESENTCSJC$_BATCH) 
SMOCSMQSV_BATCH] = TRUE; 


IF - ITEM_PRESENTESJCS_ CHARACTERISTIC NAME] 
OR « LTEMZPRESENT SJCS~CHARACTERISTIC NUMBER 
-  CHSMOVE ( 

SMOSS_CHARACTERISTICS, 

VALUE CHARACTERISTICS 

SMOCSMOST_CHARACTERISTICS)): 


IF .1TEM_PRESENTCSJC$_NO_CHARACTERISTICS] 
CHSFILL( 

SMOESMOST CHARACTERISTICS); 
IF .1TEM_PRESENTCSJC$_GENERIC_SELECTION] 
SMOCSMQSV_GENERIC_SELECTION] = TRUE; 


IF _.1TEM_PRESENTCSJC$_NO_GENERIC_SELECTION] 
SMQCSMQSV_GENERIC_SELECTION] = FALSE; 


IF_ .ITEM_PRESENTCSJC$_GENERIC_QUEUE] 
SMQCSMQS$V_GENERIC_QUEVE] = TRUE; 


if - ITEM_PRESENTCSJC$_NO_GENERIC_QUEUE] 
SMQCSMOSV_GENERIC_QUEUE] = FALSE; 


IF_.ITEM_PRESENTCSJC$_GENERIC_TARGET) 


THEN 
BEGIN 
LOCAL 
P: REF VECTOR, ! Pointer to generic target value 
AUX_N, ! Record number of auxiliary record 
AUX: REF BBLOCK; ! Pointer to auxiliary record 


FINAL_STATUS = ALLOCATE _RECORD( ; AUX_N, AUX); 
F NOT .FINAL_STATUS THEN LEAVE PROTECTED_UPDATE; 
SMOCSMQSL_GENERIC_TARGET] = .AUX_N; 


Se 
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JOBCTL.SR 


RLUE_G NER GET 
RICLTARGETEI] +°8 =. CCVALUE-GEN 


YE] = SYMSK GENERIC TARGET; 
Hero A fi, VALUE GENERIC, FeRGETLO] - 1); 


TO “VALUE "GENERIC _TaRGet 


TSMQ: REF BBLOCK; ! Pointer to generic target SMQ 


SMQ$9_GENERI 


PC1); 
nafs Q$V_BATCH) Bh FY teat BATCH) 
SMQSL “ASSIGNED. OQUEUE LINK] NEQ 0 


BEGIN 
FINAL_STATUS = JBC$_INCDSTQUE; 
LEAVE™ PROTECTED_UPDATE; 


EN 
VECTORCAUXCSYMST_ DATA], .1] = .PCOJ; 


END; 
REWRITE_RECORD(.AUX_N); 
END; 


DOODOODOOOOOWWOWMWMWMDWO JINN 
=O CONAN WIN OOODNO NEW OO ONOUS 


4 

4 

4 

4 

é 

é 

4 

4 

: IF, ITEM_PRESENTCSJCS_OWNER_UIC] 
SMQCSMQSL_OWNER_UIC] = .VALUE_OWNER_UIC; 
4 

4 

4 

4 

be 

4 

4 


A atten PRESENTCSJCS$_PROTECTION] 
SMOQCSMQSW_ PROTECTION) = 


(.SMOTSMQSW PROTECTION] AND NOT .VALUE PROTECTION<16,16>) OR 
(.VALUE_PROTECTION<O,16> AND . VALUE _PROTECTION<16,16>); 


THe PRESENTCSJC$_RETAIN_ALL_JOBS) 


BEG] 
saat RETAIN_ALL_ JOBS) = TRUE; 
SMQCSMQ$V"RETAIN_ERROR_JOBS) = FALSE; 


WONOULSWN—OVOONOUS 


THEN PRESENTCSJC$_RETAIN_ERROR_JOBS] 


satay RETAIN_ALL_JOBS 


] = FALSE; 
MOCSMOSV"RETAIN_ERROR_JOBS] = 


TRUE; 


POPIMININIDS 2 = SS QOOOOOOSCSOS 


IF_ .ITEM_PRESENTCSJC$_NO_RETAIN_JOBS) 
THEN 


ee ee ek ee ee ee ee ee ee a ee a ee ee ee ee ee ee a a ed ee ed ed ed ed 
©0099 09 09 09 0 0d 00 C9 0d Od 00 C0 Cd Od Od OD Cd C9 Od Cd CD OD 09 C9 09 09 09 C9 08 ISIS NSI NSIS SIN NSN NSS SSS 


SOOCONOUSWN—O 


Werornonrore 


BEGIN 
SMQCSMQ$V_RETAIN_ALL_JOBS] = FALSE; 


Page 3 


~oO 


eee es 
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Sess 


wr 


oO 


SROCSROSV RETAIN ERROR_JOBS) = FALSE; 


g,! TER_PRESENTCSJCS_SCSNODE_NARE) 


Ar 


COPY_SYSID(VALUE_SCSNODE_NAME, SMQCSMQ$T_SYSIDJ); 


IF .SMQCSMOQSV_BATCH) 
HEN 
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BEGIN 
If, JTEM_PRESENTCSJCS_CPU_DEF AULT] 


BEGIN 
SHaLsmasv_cPU DEFAULT = TRUE; 
sna SMQSL-CPU-DEFAULTJ = .VALUE_CPU_DEFAULT; 


IF_.ITEM_PRESENTCSJC$_NO_CPU_DEF AULT 
THEN 


BEGIN 
SMQCSMQ$V_CPU_DEFAULT] = 
sna SMQSL"CPU-DEFAULT) = 


IF_ .ITEM_PRESENTCSJC$_CPU_LIMITJ 
THEN 


BEGIN 
SMQCSMQSV_CPU_MAXIMUM] 
SMOLSMOSL _CPU_MAXIMUM] 


TRUE; 
~ VALUE _CPU_LIMIT; 


IF_.ITEM_PRESENTCSJC$_NO_CPU_LIMIT] 
THEN 


BEGIN 
SMQCSMQS$V_CPU_MAXIMUM] = F 
_ SMQ$L_CPU_MAXIMUM) = 0; 


Lf, ITEM_PRESENTCSJCS_JOB_LIMITI 
SMQCSMQ$B_JOB_LIMIT] = .VALUE_JOB_LIMIT; 


IF_.ITEM_PRESENTCSJC$_SWAP) 
SMQCSMQSV_SWAP] = TRUE; 


IF, ITEM_PRESENTCSJCS_NO_SWAP3 
SMQCSMQSV_SWAP) = FALSE; 


+ Se TL 


Be Se Be Se Ge Se Se Se Se Ge Ge Be Ge Se Fe Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Se Ge Se Se Ge Se Se Se Se Se Se Se Fe Se See Se Se Se Se Se Se es 


a -——+ 


Queue record manipulation utilities -1984 00:18:27 AX-11 iss-32 V4.0-74 
1986 $9:595%2 OSREIRECORDUS ee 


JOBCTL RECORDUTL.B352;1 (9) 


IF_ .ITEM_PRESENTCSJCS_WSDEF AULT) 
THEN 


BEGIN 
SAL smasy_USDEr AL : = TRUE; 
sna SMQSW-WSDEFAULT] = .VALUE_WSDEFAULT; 


If, ITEM_PRESENTCSJCS_NO_WSDEF AULT] 


= f 
=~ SMQSW_WSDEF AU = 0 


IF_.ITEM_PRESENTCSJC$_WSEXTENTJ 
THEN 


BEGIN 
SMQCSMQSV_WSEXTENT] = TRUE; 
laa escimacetts = .VALUE_WSEXTENT; 


IF_.ITEM_PRESENTCSJC$_NO_WSEXTENT 
THEN 


BEGIN 
SMQCSMQSV_WSEXTENT] = FALSE; 
SMOCSMOSU_WSEXTENT 0; 


IF _ .ITEM_PRESENTCSJC$_WSQUOTA] 
THEN 


BEGIN 
SMQCSMQSV_WSQUOTA) 
- SMQ$W_WSQUOTA] 


HEN 
BEGIN 
SMQCSMQSV_WSDEFAULT] ALSE; 
LT) 
TRUE; 

- VALUE __WSQUOTA; 


IF .ITEM_PRESENTCSJC$_NO_WSQUOTA) 
THEN 


BEGIN 
SMQCSMQ$V_WSQUOTA) = 
sna SMQSW-WSQUOTA] = 


IF .SMQCSMQ$V_CPU MAXIMUM] AND .SMQCSMQ$V_CPU DEFAULT) 
AND .SMQCSMQSC_CPO_MAXIMUM] - 1 LSSU .SMQCSMQSL_CPU_DEFAULT) - 1 


SMQCSMQSL_CPU_DEFAULT] = .SMQCSMQ$L_CPU_MAXIMUM); 


ee a ee ee a a a ee ee a ee ee ee ee ee a ee a ee ee ed ad ed 
yo? oe oF ot oP oT ot ot ot ad et ee eh ee ee eh ss a ee et nl a a oP oP or nl alu ot oP oP oP ne uP oP oe 


IF .SMQCSMQ$V_WSEXTENT] AND .SMQCSMQ$V_WSQUOTA] 


Blis 
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tenth ~ 5 : 4 en 00:48:42 JOBCTL. SRCIRE 


2 V4.0 
14-Sep-19 C 


w 
ORDUTL.B52;1 


; a3 1353 $ AND .SMQCSMQ$W_WSEXTENT] LSSU .SMQCSMQ$W_WSQUOTA] | ‘ 
3; 915 1949 4 SMQCSMQSW_WSQUOTA] = .SMQCSMQSW_WSEXTENTI; | : 
; 916 1948 4 : 
; 917 1949 4 | : 
; 918 1950 4 IF .SMQCSMQS$V_WSQUOTA) AND .SMQCSMQ$V_WSDEFAULTJ : 
; 919 1951 4 AND .SMOCSMQSQ_WSQUOTA] LSSU .SMOCSMQSW_WSDEFAULT : 
> 921 1988 4 SMOCSMOSW_WSDEFAULT] = .SMQCSMQ$W_WSQUOTA); : 
; 9 ¢ 1954 4 ; 
; 9 1955 4 : 
3 926 1996 4 IF .SMOCSMQSV_WSEXTENT]_ AND .SMQCSMQSV_WSDEFAULT) : 
; 4 ? be T4 ? AND .SMQCSMQS$Q_WSEXTENT] LSSU .SMQCSMQ$W_WSDEFAULTJ ° 
; 927 1959 4 SMQCSMQSW_WSDEFAULT] = .SMQCSMQSW_WSEXTENT); : 
> 928 1960 4 : 
; 929 1961 3 ELSE : 
; 930 196¢ 4 : 
; 931 1963 4 IF .1TEM_PRESENTCSJC$_DEVICE_NAMEJ : 
; 932 1964 4 THEN : 
> 93 1965 5 BEGIN ; 
3 934 1966 5 CHSWCHAR ( : 
; 935 1967 5 .VALUE_DEVICE_NAMECSDSC_W_LENGTH], : 
; 936 1968 5 SMQCSMOST_DEVICE_NAME J); : 
; 937 1969 5 CHSCOPY ( ; 
: 938 1970 5 . VALUE_DEVICE_NAMECSDSC_W_LENGTH : 
; 939 1971 5 ; VALUE DEVI CE-NAMELSDSC_A_POINTERS, : 
; 940 1972 5 A : 
> 941 1973 5 SMQ$S_DEVICE_NAME-1, ‘ 
: 942 1974 5 SMOQCSMQ$T_DEVICE_NAMEJ+1); : 
: 943 1975 4 3 : 
> 944 1976 4 ; 
3 945 1977 4 ; 
3 946 1978 4 IF .ITEM_PRESENTCSJC$_FILE_BURST) : 
> 947 1979 4 THEN : 
3 948 1980 5 BEGIN : 
: 949 1981 5 SMQCSMOSV_FILE_BURST] = TRUE; ; 
; 950 1982 5 SMQCSMQSV~FILE-BURST_ONE) = FALSE; : 
; 951 1983 4 END; : 
> 95e 1984 4 : 
; 953 1985 4 : 
; $54 1986 4 IF .ITEM_PRESENTCSJC$_FILE_BURST_ONE) | : 
; 955 1987 4 THEN : 
; 956 1988 3 GIN | : 
; 957 1989 SMQCSMOSV_FILE_BURST] = FALSE; ; 
; 958 1990 5 SMOCSMQSV—FILE-BURST_ONE] = TRUE; : 
: 959 1991 4 ; | : 
; 960 199¢ 4 | : 
; 961 1993 4 : 
; 96 1994 4 IF .1TEM_PRESENTCSJC$_NO_FILE_BURST] | ; 
; 96 1995 4 THEN : 
> 964 1996 § GIN | : 
3; 965 1997 5 SMOCSMOSV_FILE_BURST] = FALSE; : 
> 966 1998 5 SMOLSMQ$V—FILE-BURST_ONE) = FALSE; : 
; 967 1999 4 END; : 
> 968 2000 4 : 
; 969 2001 4 : 


15 
ap i laewlneralernemane seen feral aca | 


; 3 4 IF . ITEM_PRESENTCSJCS_FILE_FLAG) : 
; HEN : 
; a BEGIN ; 
: 97 5 SMQ(SMOSV_FILE_FLAG) = ; : 
; 97 SmOCSMOSV—F ILE-FLAG “ONE r Ue; ALSE: : 
: 97 4 END; : 
: 3 ¢ 
; 978 10 & Hei! . ITEM_PRESENTCSJCS_FILE_FLAG_ONEJ : 
; ¢ > § } 
; 981 1 ; Shot SMOSY_FIL FLAG] = FALSE: : 
; 2 ! 2 mOCSAOSV FIL E-Ftag. ONE) = TRUE; | : 
; 7 & | 
; $86 18 4 IF .ITEM_PRESENTCSJC$_NO_FILE_FLAG) | : 
: 3 $36 : THEN eg N : 
; 389 021 ; SMOSV_FILE_FLAG] = FALSE; 
; 990 9 g ? SMOLSMQSV-FILE-FLAG_ONE) = FALSE; 
: $8 a5 | : 
: 99% 0 a 4 IF .ITEM_PRESENTCSJC$_FILE_TRAILER] 

: 934 $58 BEGIN 

; 0 SMO SMOSV_FILE_TRAILER] = TRUE; 

; 938 9 SMOCSMOSV—F ILE-TRAILER “ONE] = FALSE; | 

; 1999 4 ; 

.* 4 

3 1908 9 4 IF_.1TEM_PRESENTCSJC$_FILE_TRAILER_ONEJ 

3 199 : 5 4 THEN on | 

; SMOCSMOSV_FILE_TRAILER] = FALSE; 

; i 0 SMOLSMOSV~FILE~TRAILER_ONE] = TRUE; 

eos Bt a 

: 1010 dug 4 IF .ITEM_PRESENTCSJC$_NO_FILE_TRAILER] 

2) an ha 

; SMO SMOSV_FILE_ TRAILER] = FALSE; 

A BBE RPbey FE TAME Mie 

$ 101 048 4 : 

: ‘ 

; 1 \ 036 4 IF .ITEM_PRESENT(SJC$_FORM_NAME) 

: 19 31 4 OR ITER. PRESENTLSJC$_FORM~ NUMBER) 

; : 038 4 SMO[SMOSL_FORM_LINK] = .VALUE_FORMCO); 

; 5 4 

; 19 é i é IF .ITEM_PRESENTCSJC$_JOB_BURST) 

; 1088 05 é THEN 

> 1026 5B 4 SMOCSMOSV_JOB_BURST) = TRUE; 


- 


cae? Ems IE Rerchate BAKE Wath Mhtetdbelihr’shns Mo 


5 


If. ITEM PRESENT(SJCS_NO_JOB_BURST 
SMOCSMOSV_JOB_BURST) = FALSE; 


IF, ITEM PRESENTCSJCS_JOB_FLAGI 
SMOCSMOSV_JOB_FLAG] = TRUE; 


IF . ITEM_PRESENTCSJC$_NO_JOB_FLAG) 
SMOCSMOSV_JOB_FLAG) = FALSE; 


Wrwno wu 


JE 5, TER PRESENTESICS_JOB RESET _AOMALES) 


a 


BEGIN 
FINAL STATUS = STORE VARIABLE _DATA( 


048 MOQ 
04 Smos§ J0B_ RESET MODULES, 
050 SMOCSMQS$T OB RESET MODULES], 
Ba) SY SoBe eeet LES 
3 VALUE. JO8 PRESET MRODULES SDSC -l LENGTH] 
05 JOB-RESETMODULES(SDSC~A-POINTERS); 
r94 IF nat. LUE RAL STATUS THEN LEAVE PROTECTED _UPDATE; 
0 
$89 
058 IF . ITEM_PRESENTCSJC$_JOB_SIZE_MAX IMUM) 


N 
SMOCSMOQ$L_JOB_SIZE_MAXIMUM] = .VALUE_JOB_SIZE_MAXIMUM; 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
ye oe oe oY ot of ot ot ot ot ot ot ot et th he eh Ah ah hh a ah ah a ih eh hh eh eh 


060 
be3 
oes 095 IF I TEM_PRESENTCSJC$_NO_JOB_SIZE_MAXIMUM] 
04 oe SMOCSMOSL_JOB_SIZE_MAXIMUM] = 0; 
06 
se ; : . ITEM_PRESENTCSJC$_JOB_SIZE_MINIMUM) 
oF ; § SMOCSMOQS$L_JOB_SIZE_MINIMUM] = .VALUE_JOB_SIZE_MINIMUM; 
7 1 
7 ; 5 IF .ITEM_PRESENTCSJC$_NO_JOB_SIZE_MINIMUM] 
O76 : 3 SMOCSMOSL_JOB_SIZE_MINIMUM] = 0; 
7 1 
Ore 119 it . ITEM_PRESENTCSJC$_JOB_SIZE_SCHEDULING) 
0 : 118 SMOCSMOSV_JOB_SIZE_SCHEDULING) = TRUE; 
8 114 
O88 115 IF . I TEM_PRESENTCSJC$_NO_JOB_SIZE_SCHEDULING] 


SNL a rs seston tate HEREcHaRt ABSA WaaDh hdesadbolshe’e 


THEN 
SMO SMOSV_JOB_SIZE_SCHEDULING] = FALSE; 
JF ITEM PRESENTCSJCS_JOB_ TRAILER] 
SMOLSMOSV_JOB_TRAILER] = TRUE; 


if z,J TER_PRESENTCSJCS_NO_JOB_TRAILER) 
SMOCSMOSV_JOB_TRAILER] = FALSE; 


Fe 9g, FON PRESENTES.IES 1 JORARY SPECIFICATIONS 


HAR ( 
snat Sha $7 °C 1BR <n W_LENGTH], 


CHSCOPY ( 
- VALUE _LIBRARY_SPECIFI 
VALUE-LIBRARY_SPECIFI 


SMOSS_L 
- Smart sRast RBRARY}¢1): 


CATIONCSOSC_w Wt LENGTH) 
CATIONCSDSC~A-POINTERS, 


:. a TER_PRESENTCSICS_00_1 IGRARY SPECIFICATION) 
CHSF i 


LIBRAR 
shoss 118 MU TBRARY); 


te 


IF. 1TEM_PRESENTCSJCS_PAGINATE] 
SMOCSMOSV_PAGINATE) = TRUE; 


IF .1TEM_PRESENTCSJC$_NO_PAGINATE) 
SMOLSMOSV_PAGINATE) = FALSE; 


5 
: 
: 
; 
! 
8 


IF .1TEM_PRESENTCSJC$_PROCESSOR] 
THEN 


Se Be Se Oe Se Se Se Be Be Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Ge Se Ge Se Se Ge Se oe 
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BEGIN 
CHSWCHAR 
5 VA UE, pRocessonC sp C_W_LENGTH), 
PROCESSOR]): 
PO 
. VALUE PROCESSOR SDSC_W_LENGTH) 
33 VALUER PROCESSORLSDSC~A~POINTERI, 


7 


om 


— 


reson eee Sieaed wniecotin atiane a hom wae ae 


haae fours mntpotion ities NERECHOE ARRAS MSL SMUREOME’Sy 


SMOSS_PROCESSOR=1 
ot SMOCSMOST_PROCESSORJ+1); 


<z 


Ss 

gs 

Cc 
vw 


| 
NOU EU 


IF «1 TEM_PRESENTCSJCS_NO_PROCESSOR] 
CHSFILL( 
SMO$S_PROCESSOR 
SMOCSMOQST_PROCESSOR}); 
IF I TEM_PRESENTCSICS_ TERMINAL] 
SMOCSMOSV_TERMINAL] = TRUE; 


IF_ I TEM_PRESENTCSJC$_NO_TERMINAL] 
= SMOCSMQSV_TERMINAL] = FALSE; 


END; ! block PROTECTED_UPDATE 


IF .FINAL_STATUS 
THEN 


BEGIN 
F ITEM. au} jel SJC$_GENERIC_ QUEUE] 
OR .ITEM_PRESENTCSJC$_NO_ GENERIC eueyes 
OR .ITEM_PRESENTCSJC$_GERERIC_TARGET 


BEGIN 
IF .LSMOCSMOSL_GENERIC_TARGET] NEQ 0 
DEALLOCATE_RECORD( .LSMQCSMOSL_GENERIC_TARGET)); 


SSBLESPANLS SSLESLANLESSISSLAV=S Sa 


Ce eee ee ew Pat at er er od ele wie WW Po oo oP oo ot ot ot at ot nt ot ot ot et et 
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ELSE 
SMQCSMQSL_GENERIC_TARGET] = .LSMQCSMQ$L_GENERIC_TARGET); 


ET MODULES) 


IF . ITEM_PRESENT(CSJC$_JOB_RES 
C$"NO_JOB_RESET_MODULES) 


Tiel . ITEM_PRESENTLSJ 


J 
NO 
baer ee DAT abby (es, 
SMOESMOST JOB 0B RESET  HOBULES?) 
CHSMOVE 
Snss JOB_RESET MODULES, 
LSMQCSMOQ$T_JOB_RESET POLES. 


SMOCSMO$T_JOB_RESET_MODULES 


3 3 
3% 
3% 
3 7 
37 
3 1 
3% 
3% 
3 7 
3 7 
3; 
3 7 
3; 1 
3 1 
3% 
37 
3 3 
3 7 
3 7 
3 3 
3 7 
3 7 
3 3 
3 1 
3; 3 
3 7 
3 3 
3 7 
3 7 
3 7 
3 1 
3 1 
3; 1 
3 3 
3 7 
3; 1 
3 7 
3 1 
3 7 
3 Y 
3 1 
3; 3 
3 1 
3 
3; 7 
3 7 
3 1 
3; 7 
3 7 
31 
3; 7 
3 7 
3 7 
3; 7 
3 7 
3 7 
3 4 
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14-Sep-1 JOBCTL.SRCJRECORDUTL. 3 2:1 | 
711 IF ~SMOCSMOSL GENERIC TARGET) NEO 9 : 
511 N DEAL COC ECORD(. SMOCSMOSL_GENERIC_TARGETJ); ; 
: 1 DEALLOFAT V ABLE“ DATA ; 
31 ame mass JOB_RES “MODULES, ; 
31 SMQ$T-JOB_RESET_MODULES)); | : 
: 1 CHSMOVE (SYMSSTSYRT LSMQ> .SMQ); : 
3: 1 END; | ; 
: 1205 3 
3 1 8 : 
31 9 2 .FI FINAL STATUS ; 
3% 40 END; ; 
OFFC 00000 ENTRY APPLY sng OPTIONS, Save R2,R3,R4,R5,R6,R7,- ; 1660 : 
5E FEOO CE %€ 0000 MOVAB Re 8 tgp) : ; 
56 04 AC 00 0000 MOVL. SMa + 1699 ; 
6E 66 9200 BF é 90008 MOVC3 $o15 (R6) LSMQ : ; 
9 118 ¢6 9E 00011 MOV 280(R6) : 1700 ; 
06 00 te 09 2C 00016 moves #0, (SPS, #0, #6, (RD ; 3 
74 Ab D4 O0DIC CLRL —-:116 (RO) : 1701 ; 
58 01 90 OO01F MOVL #1, FINAL_STATUS + 1702 ; 
7 Oc 6 3 0022 MOVAB 12(R6) if? > 1706 : 
1D 67 01 £3 00026 BBCS #1, (RP), 3 ; : 
03 00000000' EF £9 O002A BLBC ~—_sL' TEM ORESENT#1, 1$ : 1708 3 
08 67 €9 00 1 BLBC : : 
08 00000000' EF 01 £1 00034 1$: BBC [TEM_PRESENT+1, 3$ : 1709 ; 
8 67 E9 0003¢ BLBC tr?) : : 
50 00048118 8F DO OOO3F 28: MOVL #295192, RO : 1711 : 
04 0046 RET ; ; 
00000000' a 95 00047 3$: TSTB  =—s LTEM_PRESENT : 1714 3 
9 18 0004D BGEQ ; 3 
0114 ¢6 00000000' EF 90 0004F MOVB VALUE BASE_PRIOR IY, 276(R6) : 1716 : 
03 00000000° FF £9 90098 4$ BLBC M PRES ENT+1, : 1719 3 
b 1 88 0005F | BISB2 eM Re * 1721 ; 
08 00000000° EF 04 £0 00062 S$: BBS a: IT tn PRESENT#1, $$ > 1726 3 
09 00000000' EF 05 3 O06 BBC ITEM"PRESENT+1, 7$ ; 1285 ; 
30 Ag 00000000" EF 10 28 99 2 68: MOVC3 * 36, VALOE CHARACTER STICS, 48(R6) : 1730 : 
07 00000000" EF 06 F! 0 $: BBC #6, ITEM M_PRES SENT $ : 1733 : 
10 6E wie C 0 mOVCS #0. (SP)7 sete. “4B(R6) : 1738 3 
04 00000000' EF 4 7 BA 8$: C #4, ITER PRESENT*8, 9$ > 1741 : 
01. =A? : 8 B1SB2 g. (R73 + 1743 : 
04 00000000° EF 1 98: #3. ITEM PRESENT+8, 10$ + 1746 ; 
1 A? : A i} BICB2 * F(R7S > 1748 : 
04 00000000" EF 7 Ad 10$: BBC ‘ ITER PRESENT+8, 11% : 1751 : 
A7 4 8 AA B1SB2 * F(R7T : 1235 : 
04 00000080" EF 3 5 AE 11%: BBC a3. ITER PRESENT+8, 12% > 1756 ; 
1 A? 4 8a 00086 BICB2 #4. 1(R77 : 1758 : 
64 9° EF E1 OOOBA 12%: BBC #6. ITEM_PRESENT+8 ; 1761 : 
G EF F cg CALLS #0, ALLOCATE Mons : 1770 : 
8 D ¢ MOVL RO. FINAL_STAT WW : : 
E cc BLBS —s*FINAL eros. $ : 1771 | : 
| 
| 


15 | 
aa bene hee bepneecseders sine ea AHL arth ea 
048¢ 31 CF BRwW 828 : 3 
7% «Ab A p be 13$:  MOVL AUX_N, 116(R6) : 1772 | ; 
04 Ag E D MOVE #147 4cAuxX : 1775) ; 
2 52 00000000° ai D DA MOVIL VALU GENERIC TARGET, R2 t 1776) ; 
ef 00000000" EF 43 4 €5 MOVAQ VALUE_GENERIC_TARGET-4(R2], P t 1777) ; 
3 ps ED CLRL : 1778 : 
1 OOOEF BRB : ; 
50 04 A 0 Fl 14$: MOVL 4(P), iste : 1783) : 
54 0c Ad 1) F5 xORB3 (R7), 12¢TSMQ), RS 3: 1784 $ 
OA a € FA BLBS é ; : 
05 Op Ad 02 € F BBS #2. 13(TSMQ), 15$ + 1785 : 
2c AD BS 0010 Ist 44 (TSMQ) > 1786 ; 
58 00048120 er 26 107 15$:  MOVL #295200, FINAL_STATUS : 1789) ; 
3F7 31 001 BRW : 1790 : 
OC ABG1 3 pO 00111 168 MOVL (P), 12¢(AUX)CIJ : 1798 ; 
: C 116 SUBL2 #8, P : 179 ; 
D4 1 F300119 17$:  AOBLEQ R2. I, 148 : 1778 : 
5A DD 00110 PUSHL  AUX_N : 1795 : 
000000006 Fe 01 FB O11F CALLS #1, REWRITE_RECORD : ; 
9 00000000' EF £9 00126 18$ BLBC ==ITEM PRESENT+14, 19S + 1799 ; 
0000 C6 00000000° FE DO 00120 MOVL VALUE_OWNER_UIC, 208(R6) : 1801 3 
29 00000000° EF 5 £1 00136 198 BBC #5, ITEM_PRESENT+16, 208 + 1804 ; 
1 0104 C6 3C 001 é MOVZWL 260(R : 1807 ; 
50 00090000' EF C 0014 MOVZWL VALUE PROTECTION+2, RO : : 
51 0 CA OO14A BICL2 ; : : 
50 00000000' EF %3C 0014D MOVZWL VALUE_PROTECTION, RO : 1808 ; 
52 00000000' EF C 00154 MOVZWL VALUE-PROTECTION+2, R2 : ; 
5 : D2 00158 MCOML 2, R : : 
5 52 «CA 0015E BICL2 R2. R : | ; 
0104 6 —— 51 A9 00161 BISW3 R1, RO, 260(R6) : ; 
08 00000000" EF 04 €1 00167 208: BBC #4; ITEM PRESENT+17, 21% : 181) | : 
02 A? 04 88 O016F BISB2 #4. 2(R73 : 1814 ; 
02. A? 08 A O173 BICB 48, R7) : 1815 ; 
08 00000000" EF 0 cI 00177 21$: BBC #5. ITEM _PRESENT+17, 22$ + 1819 : 
02 A? 04 8A 017 BICB2 #4. 2(R7T : 1822 ; 
02 A? 08 88 00183 BISB2 #8. 2(R7) : 182 : 
04 00000000" EF 06 1 00187 228: BBC #6. ITEM _PRESENT+17, 238 + 1827 : 
02 A? C 8A 0018F BICB2 #12, 2(R7) > 1831 : 
00000000' FF 5 00193 238:  TSTB JTER_PRESENT+17 > 1835 ; 
2 18 00199 BGEQ 4$ : ; 
106 C6 00000000" EF 00 0019B MOVL  VALUE_SCSNODE_NAME, 262(R6) ; 1837) ; 
10A 6 00000000" EF 80 1A4 MOV VALUE “SC SNODE NAME +4, 266(R6) : | : 
? 5 1AD 248 BLBS  (R?), + 1840 | ; 
0148 1 0180 BRW : ; 
0B 00000000' EF 0 cI 1B3 25$ BBC #3, ITEM_PRESENT+2, 26% > 1843 : 
67 4 8 1BB BISB2 #4. : 1846 ; 
40 A6 00000000" EF D 1BE MOVL VALUE _CPU_DEFAULT, 64(R6) > 184 ; 
06 00000000" EF 4 gl 106 26$: BBC a4, ITEM_PRESENT#+2, 27$ : 1851 | ; 
67 4 8A Ice BICB2 #4. (R?) > 1854 ; 
40 Ab D4 0010 CLRL 4(R6) > 1855 : 
0B 00000000° EF : 1 00104 27%: BBC #5, ITEM_PRESENT+2, 288 : 1859 : 
? 8 0010C BISB2 #8. (R?) : 1 ; 
44  A6 00000000' EF D0 1DF MOVL VALUE CPU_LIMIT g8(RG) > 186 ; 
06 00000000' EF 1E7 288: BC a6, ITEM_PRESENT* , 298 > 186 ; 
67 A OO1EF BICB2 #8. (R?) > 1870 : 
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tees 12-80 8-1 3b 90:48:42 JOBCTL.SRCJRECORDUTL.B32;1 . (3 V 
44 AG D4 OOTF CLRL 68(R6) : 1871 : 
09 00000000" EF 06 Fi if8 29%: BBC 6, ITEM_PRESENT+9, 30$ : 1895 : 
11 C6 00000000" EF 90 001FD MOVB VALUE _JOB_LIMIT, 278(R6) : 1877 ; 
04 00000000" EF 1 fi 06 308: BBC #1, ITEM_PRESENT+18, 31$ + 1880 ; 
A? 8 o§ BISB2 #32, 2(R7) : 1882 ; 
04 00000000" EF 1 00012 31%: BBC #2, ITEM_PRESENT+18, 32$ : 188 ; 
02. A? A O0021A BICB2 #32, 2(R7) : 1887 : 
00000000° it 93 IE 32$: STB TEM_PRESENT+18 + 1890 : 
02 A? 8 F 8 0 6 BISB2 #128, 2(R7) + 1893 : 
010€ cs 00000000" EF B B MOVW VALUE WSDEF AULT, 379(R6) + 1894 : 
9 000000 9° it 5 0 4 33$:  BLBC  ITEM_PRESENT+19, 34$ + 1898 ; 
02 A? F BA B BICB2 #1287 2(R + 1901 : 
010E C6 B4 00240 CLRW (R6) + 1902 : 
yy 00000000" EF or FI 0 44 34$: BBC #1, ITEM_PRESENT+19, 35$ + 1906 ; 
03 =A? 1 88 4c BISB2 #1. 3(R7T : 1909 : 
0110 C6 00000000' EF BO 0025 MOVW  VALUE_WSEXTENT, 272(R6) + 1910 : 
08 00000000" EF 2 £1 00259 35s: BC #2, TEN PRESENT+19, 36$ : 1914 ; 
03 A? 01 8A 00 61 BIfB2 #1. 3(R7J : 191 ; 
0110 cé B4 00265 72 (R6) : 1918 F 
OD 00000000' EF 0 Ei 00 69 36$: #3, ITEM _PRESENT+19, 37$ + 1922 ‘ 
03 A? 02 88 00271 #2, 3(R73 + 1925 : 
0112 C6 00000000" EF BO 00275 OVW  VALUE_WSQUOTA, 274(R6) + 1926 ; 
08 00000000" EF 4 £1 O0027E 37S: BC a4, ITER PRESENT+19, 38$ + 1930 F 
03 A? 02 8A 00286 BICB2 We (R73 + 1933 : 
0112 cé B4 002B8A CLRW =. 274 (R6) + 1934 : 
18 67 03 £1 00 BE 38$: BBC #3, (R7), 39% : 1938 ; 
14 67 02 €1 0029 BBC #2. (R7). 39$ : : 
51 44 Ab 01 €3 00296 SUBL3 #1, 68(R6), R1 : 1939 : 
50 40 A6 gt C3 00298 SUBL3 #1, 64(R6). RO : : 
50 1 D1 002A0 CMPL =s R71. RO ; : 
05 1€ 00243 BGEQU 39$ : ; 
40 Ab 44 A DO 0025 MOVL 68(R6), 64(R6) + 1941 F 
14 03 A? €9 OOGAA 39$: BLBC (R7), 40$ > 1944 ; 
28 67 19 £1 00 AE BBC #23 (R7), 41$ : : 
0112 6 0110 C6 61 002B CMPW = -272(R6), 274(R6) > 1945 ; 
07 1€ 00289 BGEQU 40$ : : 
0112 6 0110 C6 BO 00 BB MOV 272(R6) 274(R6) + 1947 : 
14 67 19 €1 002C2 40S: BBC #25, (R?), 41$ : 1950 : 
10 67 17 £1 002¢6 BBC #23. (R7). 41$ : : 
O10E C6 0112 C6 61 00 CA CMPW =s--274(R6), 270(R6) : 1951 : 
07 1€ 00201 BGEQU 41$ : : 
O10E C6 0112 C6 BO 00203 MOVW g74(R6) 270(R6) + 1953 : 
14 03 AZ £9 002DA 41$: BLBC (R7), 42$ : 1956 ; 
10 67 17 £1 002D BBC #3 (R7), 42$ ; : 
010E C6 0110 cs BI O2E CMPW 3 =—s-s-272(R6), 270(R6) : 1957 ; 
7 é O2E BGEQU ses : : 
O10E 6 0110 ¢ ; O2E MOVW é g(R6), 270(R6) : 1959 ; 
0213 31 0 F2 42$ BRW : i > 184 : 
17 00000000" EF 0 Fl F5 43$ BBC #3, ITEM PRESENT+3, 44$ : 196 ; 
50 A6 00000000" EF 90 00 FD MOVB. VALUE_DEVICE_NAME, 80(R6) > 1968 F 
1F 00 00000000" FF 00000000" EF 2c 0 03 MOVCS VALUE SDEV cE NAME, @VALUE_DEVICE_NAME+2, - ; 1974 : 
06 00000000" FF 9 0 14 448: BLBC. IT M_PRESENT#4, 45$ : 1978 ; 
6 0 88 00318 81 $82 #16, ~(R?) : 1981 ; 
67 20 A OO31E BICB 32° (R7) + 1982 : 
06 00000000' EF 1 £1 00321 45$: BC #1, ITEM_PRESENT+4, 46$ > 1986 : 
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08 00000000" 


08 00000000' 


04 00000000' 
08 G00000R9" 
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08 00000000" 
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01 
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08 00000000' 


70 
04 vonaee « f 
04 veeea | 
04 aeaer * i 
04 00000000' 

01 


000000006 


09 00000009. 
00 
04 00000000' 
09 00000000' 
0084 
04 00000000° 
05 00000000' 
01 


4 
05 00000000' 
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PRESENT+4, 47$ 
PRESENT+4, 48$ 
RESENT+4, 49$ 


Pp 
) 

Speman: 50$ 
PRESENT+5, 51$ 


R 
R 
E 
R 
E 
R 
( 
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TE 
E 
R 
3 PRESENT+5, 52$ 
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1 
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PRESENT+5, 53$ 


ITEM_PRESENT+6, 54$ 
_PRESENT+6 
VALUE_FORM, 112(R6) 

#1, ITEM PRESENT+9, 56$ 
#16, 1(R7) 

#2, ITEM_PRESENT+9, 57S 


» 1R 
a ITEM. PRESENT+9, 58$ 
#5, ITEM_PRESENT+9, 59$ 
» 1(R7) 
ITEM_PRESENT+10, 60S 


VALUE_JOB_RESET_MODULES+2 
VALUE _JOB_RESET MODULES, -(SP) 
9 


Se 
TEM 
5$ 


R 
#6 


R6 
#6, STORE_VARIABLE_DATA 
RO. FINAL~STATUS 
FINAL_STATUS, 60$ 


8 

#2, ITEM_PRESENT+10, 618 
VALUE_JOB_SIZE Patines 128(R6) 
#3, JTEM_PRESERT#1 , 62eS 


E 
( 
R 
( 
E 


gf RESENT#10. 65$ 
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; 
#64, 1 
Pp 
A, 1 
i, iT 


# 
R7) 
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3; Routine Size: 


1410 bytes, 


Routine Base: 


CODE + O2DE 


~ :18: AX-11 Bliss-32 V4.0-74 Page 40 
RE CORDUTL SEO SORTS RONEN TER GETS TE TS 1bcdeo 1984 13:39:75 | bacte Ske Sneconpune 692; 1 (9) 
v * 21 ; 
46 BISB2 #128 i $13¢ 
05 00000000" EF me i ft a8) 678: BBC AE [TEN PRESENT+11, 688 : 3137 
A? ;, 1411 ; ; 
19 8s SEE aoon0000" ee 60 i oes: hove VAcue tipeant grec reation. 1 136(R6) : $123 ; 
27 00 00000000" FF 20009009" EF et 00485 panty SYALUE LTORART. SPECIFICATION®2, #0, #39, - 
M_PRESENT#11, 70S 3145 ; 
_ ecrecmend 86 Sc 00090 «= ROVES «AOL CSPOT AOS ma, f36cR6D : $150 
“si GA : 2153) ; 
m como aE ALR Mtg srpresenrn. rs Hal 
' : BBC * 2160 : 
04 00000000" EF 3 Ei OO4B1 718: BBC (R7Y : 
Qe, A? * boces 728: NT#+16, 73$ i 2163 
19 00009959" FF scoooogs PF ff GRlED 728: BBC, FRY ITEM Pnesenrele, 738 gee] 3 
00%, C6 00000000" EF 90 004c OR; SVALUE_PROCESSOR+2, #0, - : ; 
0000" FF 00000000' EF 2C O04CE MOVCS VALUE PROCESS ; 
27 00 0000 0005 C6 b0608 ous tee #3 Ha’ nCPRESENT +16 48 2178 ; 
ent oe 00 5c OOces MOVES «OL SPDT MO wad. S15¢R6) 32 
28 O4EB : 2186 
05 00000000" EF ace 03 Ft OOee 748: BBC ‘ TIEN PRESENT#18, 75S : 318s 
A7 4 +18, 76$ : : 
05 00000000" EF 04 £1 OO4FR 758: BBC " : 2193 
02 a 40 BF : 00308 768: BLBC FINAL STATUS, 828 ; 2208 
50 74 AE 77$ : : 
te) oe ee Be) | 
85 spo09K00" EF 06 FI 0051F BBC g ITEMS “PRESENT+8, 78$ $$03 : 
OD 00000000" € ef 095 2 778 Be GL 796 : $08 
D é eo 
oo000000G EF a} rB o CALLS #1, DEALLOCATE_RECORD t 2205 
0 oO 005 78$: MOVL RO, 116(R6) : 2216 : 
gor $B 90000000" fF EF Goses 798: BLRS Fen resealoH 8S on 3] |i 
nS ey te Re te : 3 
000000006 EF a3 FB 00540 CALLS #2, DEALLOCATE_VARIABLE_DATA ; 
28 11 bpeee BRB 5ma+280, (R9) + 2226 : 
Cena FAB ee ae BS BE: 
74 AG D8 aH g2s: Fete i tecr6y 
OA 1 561 BEQL 83$ : 2231 ; 
ao o385 CALLS #10. DEALLOCATE _RECORD ; : 
000000006 EF Qi FB 0360 Push Ry 
SOO ee A OCATE_VARIABLE_DATA : 
000000006 EF 09 FB 0371 CALLS AZ DEALLOCATE 
. 85 00S OO Onsre ROVE” FINAL STATUS. RO ; 
ba OOseT RET 
| 
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Bliss-32 V4.0-74 : 
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1 4 
JOBCTL.SRCJRECORDUTL .B32; 1 (10 


: ! 19 ¢) } GLOBAL ROUTINE DELETE _SMQ_RECORD(SMQ_N,SMQ): NOVALUE= : 
. 3 \¢ rk 1 44 . 
: 121 44 1! : 
3; 1214 45 1 ! FUNCTIONAL DESCRIPTION: : 
: } 1? m4 : This routine deallocates a queue header and its substructures. | ; 
3 1217 48 1 ! INPUT PARAMETERS: ° 
; 1218 49 1! SMQ_N - Record number of SMQ. ‘ 
: : 3 9 : Sma - Pointer to SMQ. ; 
3 1281 26 1 ! IMPLICIT INPUTS: | ; 
3 1 ; 53 1! NONE “ 
3 \$s 254 1! ; 
3 1224 255 1 ! OUTPUT PARAMETERS: 3 
3s 1 $2 $528 1! NONE ; 
; 1226 257 1! ; 
3 1227 2258 1! IMPLICIT OUTPUTS: : 
: 1228 $528 1! NONE , 
: 1229 2260 1! : 
3 1230 2261 1 ! ROUTINE VALUE: | é 
: 1231 $50e 7 NONE . 
3 1S36 2263 1! ; 
3; 123 2264 1 ! SIDE EFFECTS: ; 
: 1234 2265 1! NONE : 
3; 1235 5566 1! . 
3 1236 267 1 !<- : 
: 1237 2268 1 ; 
3; 1238 2269 2 BEGIN : 
3; 1239 2270 2 MAP ; : 
3; 1240 2271 2 SMQ: REF BBLOCK; ! Pointer to SMQ : 
3 1241 osie 2 . 
3 1st6 2273 2 ; 
g \Sez $$ie 2 : If there are services outstanding for this queue, cancel them. : 
3; 1245 2276 $ IF .SMQCSMQ$V_PAUSING) . 
: 1246 2277 2 OR .SMQLSMQSV_RESETTING) : 
: 1247 2278 2 OR .SMQCSMQSV_RESUMING) : 
> 1248 2279 2 OR .SMQCSMQSV-STARTING] : 
3 1249 2280 OR .SMQCSMQ$V_STOPPING] . 
3; 1250 2281 THEN . 
3: 1251 $Se¢ SCAN_INCOMPLETE_SERVICES(ISRV_K_PURGE_SMQ, .SMQ_N); : 
: 1536 seh bay! 
; 1S2e 2285 ; Deallocate the generic target record, if it exists. : 
e . | ao 
; 1526 3287 IF .SMQCSMQ$L_GENERIC_TARGET] NEQ 0 | : 
: 1388 $B DEALLOCATE_RECORD(.SMQCSMQ$L_GENERIC_TARGET]); | : 
> 1259 290 ; 
: isey $3! : . : 
3 1$0! 4 : Deallocate the fixed/variable data areas, if they exist. : 
s 3 8 94 DEALLOCATE_VARIABLE_DATA( | : 
3 1264 95 SMO$S_JOB_RESET MODULES, . 
; ' o2 3 36 SMQCSMQ$T~JOB_RESET_MODULES)); : 


; 1267 
68 
69 
70 
71 
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} Finally, deallocate the queue header record. 
DEALLOCATE_RECORD(.SMQ_N); 
END; 
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; Routine Size: 


BBe 93:48:95 | Pama ct eae SReconous: 69251 


DELETE_SMQ_RECORD, Save R2,R3 
DEALLOCATE RECORD, R3 
SMa, R 
VgcR2) RO 
#3, (RO), 1$ 
#5. (RO), 1$ 
#6, (RO). 1$ 
1(RO), 1$ 
#10, (RO), 2% 
we 
#2, SCAN_INCOMPLETE_SERVICES 
116(R2) 
3$ 
Vere) 
DEALLOCATE_RECORD 
256(R2) 


rb DEALLOCATE_VARIABLE_DATA 
#1, -DEALLOCATE RECORD 
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5 


STATUS; 


—OOooO 


Allocate the queue record, and return if no more. 


STATUS = ALLOCATE_RECORD( ; SJH_N, SJH); 
IF NOT .STATUS THEN RETURN .STATUS; 


Initialize the queue record. 


SJHCSYMSB_TYPE] = SYMSK_SJH; 
STATUS = ALLOCATE_ENTRY_NUMBER(SJHCSYMSL_ENTRY_NUMBER)) ; 
IF NOT .STATUS 


N 1 
RECORDUTL Queue record manipulation utilities 16-Sep-1984 00:18:27 AX-11 Bliss-32 V4.0-74 
voce 13-38 -138e AEE JOBCTL. REIRECONDUTL 69251 
1 i 3 GLOBAL ROUTINE CREATE_SJH_RECORD(SMQ_N,SMQ;SJH_N,SJH): L_OUTPUT_2= 
75 05 '++ 
7 BS ! 
7 0 ' FUNCTIONAL DESCRIPTION: 
£8 88 } This routine allocates and initializes a job header record. 
80 10 ' INPUT PARAMETERS: 
81 11 ; SMQ_N - Record number of SMQ. 
B $1§ } SMQ - Pointer to SMQ. 
284 314 ! IMPLICIT INPUTS: 
+H $12 } MBX - Pointer to buffered mailbox message. 
287 317 ' OUTPUT PARAMETERS: 
288 318 : SJH_N - Record number of SJH. 
289 319 ! SJH - Pointer to SJH. 
290 320 ' 
291 321 ' IMPLICIT OUTPUTS: 
$36 $56 ! NONE 
29 32 ! 
294 324 1 | ROUTINE VALUE: 
295 325 ! Completion status. 
296 326 ! 
297 327 ' SIDE EFFECTS: 
298 328 ! NONE 
299 329 ! 
300 330 ed 
301 331 
302 332 BEGIN 
303 333 MAP 
304 334 SMQ: REF BBLOCK, 
305 335 : REF BBLOCK; 
306 336 LOCAL 
3 337 
3 338 
3 339 
3 340 
34 
34 
34 
34 
34 
34 
34 
34 
34 


BEGIN 
DEALLOCATE _RECORD(.SJH_N); 
Fe . STATUS; 
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IF .SMOCSMO$V_BATCH] 
THEN 
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Viseooe 12780871 3be 99:39:95 «| abact sae Saeconoun: B$2:1 o9e tt) 


4 1 
eS | ant Susy vat peLer J , 
: 1 JH Hatt ert “$ he 
| ND 
3 1 ELSE 
ett Pte ap RESTART] = T 
P+ s 
; aul $JH$8~J08_ tories aut 
3 1 
; i ; JHCSJ VOPE TR 
Py = Py 
: ie Ea ra UE LINKS. =, SW 
:1 SJH j= SYSS¢B BEFQUEPR PRL 
: 1 iF Seat EQL O-THEN SJHCSJHSB_PRIORITY] = .MBXCACMSB_PROCPRIJ; 
: 1345 Suteonge THs = sROXCACRS PID; 
31 opy SALA S_SYSID, SJH SJHST_SYSIDI); 
3: 1 sJHCS ule -MBXCACMSL vid 
31 § CHSMO SMOVE (SIH $-USER , MBXTACMST_USERNAME], SJHCSJHST_USERNAME]); 
31 CHSMOVE (SJHSS-ACCOUNT, MBXCACMST XK COUNT, § yHESJHST_ACCOUNTJ); 
31 9 COPY_TIME(CUR-TIME, SJH(SJHSO_TIME)) 
: ! COPY TIME (CURTIME, SJHCSJHSQ—AF TER a TIME); 
3 1 § END; 
OOFC .ENTRY CREATE_SJH_RECORD, Save R2.R3.R4,R5,R6.R7 ; 2303 
57 00000000" EF 9€ MOVAB ; 
000000006 EF F CALLS "ALLOCATE_RECORD + 2342 
2 D MOVL RO STATU $ ; 
1D £9 BLBC s! TATY ; 
04 AB MOVB TYE gmp ; 
08 AB OF PUSHAB HE ; 
000000006 EF 1 Ff CALLS #1, ALLOCATE_ENTRY_NUMBER : 
2 g D mMOVL = RO, STATUS ; 
0D E BLBS STATUS, 2$ : 3350 
A 0D PUSHL SJH_N : 235 
000000006 ef 1 F CALLS #1 DEALLOCATE_RECORD ; 
0 2 MOVL STAT > 2354 
0 8 ac D mOVL : 2358 
be 8° A § BLBC eri tho}, : 
0D AB 14 BIs62 #20. 180350) i 3362 
— as BISB2 #2, 14(SJH) F 
019s cB 5; 5 MOVB #1. 378(SJH) ; 
10 AB 40 = BF 88 4 BISB2 #64, 16(SJH) > 2371 
0134 8 Oe AC ; MOVL MQ_N, so (Sam 3 Me 
1 17D MOVAB 3817S) ; 237 
61 000090006 5 MOVB gy 4OEFQUEPRI. (R1) ; 
1 BNEQ 3 2374 
30 24 th ROVE ate (R1) 
% 49 D MOVL MBX, R6 > 2375 
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7 AX-11 Bliss-32 V4.0-74 
14-Sep-19 2 JOBCTL.SRCIRECGROUTL.832;1 
130 ¢ 2 MOVL 40(R6), fet JH) 
16 ¢ cs a3 a MOVL THIS_SYSID, : JH) 
¢ a? ne) THIS"SYSID*4, 368(SJH) 
144 ¢ f Ab MOV 12(RB), 326¢§ 
0148 ¢B MOV #i2, 16(R6), 328(SJH) 
16 «AB ile movC a8 28 (RO) (SJH) 
cB pO OA va  CUR_TIME, + ($JH) 
cB DO soa? mova CUR_TIME. 52(SJH) 
01 A MOVL #1,7R 
A RET 


; Routine Size: 166 bytes, Routine Base: CODE + 0880 
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9 
GLOBAL ROUTINE APPLY_SJH_OPTIONS(SJH)= 


‘ee 


FUNCTIONAL DESCRIPTION: 
This routine applies options to a job header record. 


INPUT PARAMETERS: 
SJH 


wa 
fo 4 Wb 


= Pointer to SJH. 


IMPLICIT INPUTS: 
Existirg values in SJH. 


OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
New values in SJH. 


ROUTINE VALUE: 
S oolebion status. 


SIDE EFFECTS: 
NONE 


SJH: REF BBLOCK; 

LSJH: BBLOCKCSYM$S_SYM], ' Saved copy of original SJH 
FINAL STATUS; inal routine status 
PROTECTED_UPDATE; 


! Set up for backing out the transaction in case of an error. 
CHSMOVE ( YMSS "tn -SJH 


‘ LAA AAAI POPOPUPINONONY 
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io 1 
— 1 
oO 1 
3 1 
oe 1 
oO 1 
: 1 
eo 1 
3: 1 
3 1 
3 1 
3 3 
a 1 
— 1 
oO 1 
3 1 
3 1 
3 1 
eo 1 
e 
3: 1 
3 1 
3 1 
3 1 
3: 1 
. 1 
3: 1 
oO 1 
3; 1 
3 1 
oO 1 
3 1 
oO 1 
3 1 
> | 
3 1 
3 1 
3 1 
3 1 
2 1 
3; 3 
oO 1 
3; 1 
: 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3: 1 
3 1 
. 5 
3: 1 
3 1 
3 1 
3: 1 
3; 1 


95 CHSFILL(O, SJASS ECKPOINT. ME SHCSUHST HECKPOINT)) 

% CHSFILL(O, SJH$S~LOG SPECIFICATION SJACSJH$T_LOG_ SPECIFICATION): 
9 CHSFILL(O, SJHSS"NOTE, Ks 

98 CHSFILL(O, SJHSS~PARAMET JHESJHST PARAMETERS 

399 CHSFILL CO. § Sih88- ERATOR. measeth SJHCSJHST C OPERATOR REQUEST); 
401 PROTECTED NBpates “BEGIN 

£08 
404 If. 1TEM_PRESENTCSJCS_AFTER. TIME) 

405 THEN 

406 BEGIN 

40 COPY_TIME(VALUE_AFTER_TIME, SJHCSJHS$Q_AFTER_TIME]); 

408 Lf LIME GEQU(CUR_TIME; SJH{SJHSG_AFTER_TIMET) 

410 32 COPY_TIME(CUR_TIME, SJHCSJH$SQ_AFTER_TIME)); 
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27 st 

; 1416 443 F_.ITEM_PRESENT(SJCS$_NO_AFTER_TIME) 

; 1218 +? COPY_TIME(CUR_TIME, SJHCSJHSQ_AFTER_TIME]); 
: 1213 44 

: 161 44 IF - ITEM_PRESENTESICS CHARACTERISTIC NAME] 
+ 1420 44 OR .ITEM~PRESENTCSJC$~CHARACTERISTIC NUMBER) 
3; 1421 4 THEN 

: 146 ¢ 4 CHSMOVE ( 

: 14 4 SJHS$S_CHARACTERISTICS, 

> 1606 4 VALUE “CHARACTERISTICS 

; 16 é 4 $ SJHCSIHST_CHARACTERISTICS); 

: 14 4 

: 14 439 IF .1TEM_PRESENTCSJC$_NO_CHARACTERISTICS) 
: 14 45 THEN 

: 14 45 CHSFILL( 

> 1431 460 

: 16 ; 461 SJH$S_CHARACTERIST 

; 14 46 SJHCSIJHST_CHARACTE Sticsa: 

3; 1435 464 

: 14 465 3 IF .1TEM_PRESENTCSJCS$_CHECKPOINT_DATA] 

: 14 466 THEN 

: 16 467 & BEGIN 

: 1439 4668 4 FINAL_STATUS = STORE_VARIABLE_DATA( 

> 1440 469 4 JH 

: 1641 470 & SJH$S_CHECKPOIN 

: 1449 471 & SJHCSIHST CHEERPOINT), 

: 166 472 4 SYMSK_CHECK 

+ 1464 473 4 . VALUE _ CHECKPOINT -paTatspse¥ W LENGTH] 
> 1645 474 & VALUE” CHECKPOINT DATALSDSC~ ER4); 
+ 1446 475 4 IF NOT .FIRAL_STATUS THEN LEAVE “PROTECTED “UbDATE: 
+ 1447 47 END; 

: 1468 47 

> 1469 47 

: 1450 47 IF .1TEM_PRESENTCSJC$_NO_CHECKPOINT_DATA] 
> 1451 480 3 THEN 

: 1458 481 & BEGIN 

> 145 482 4 SJH(SJHSL_COMPLETED_BLOCKS] = 0; 

3 1454 4835 4 SJHCSJHSL_CURRENT_FILE CHKPT) = 0; 

> 1455 484 4 SJH(SJH$8_JOB_COPTES EAKPT I = 0; 

; 1496 485 4 SJHCSJHSB_FILE_ Copies. CHKPT) = 6; 

> 145 48 END; 

3; 1458 48 

3 1459 488 

+ 1460 489 3 IF .ITEM_PRESENTCSJC$_CLIJ 

> 1461 490 3 THEN 

: 146¢ 491 4% BEGIN 

+ 146 492 4 CHSWCHAR ( 

+ 1464 493 4 . VALUE CLILSDSC_u_ LENGTH], 

+ 1465 494 4 SJHLSJA$T_CLIJ): 

: 1466 495 4 CHSCOPY ( 

> 146 469% 4 é LUE _CLIESDSC_W_LENGTH] 

> 1468 497 4 ALUE~CLICSDSC"A-POINTERI, 
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IF I TEM_PRESENTCSJC$_NO_CLIJ 
CHSF ILL 


LEGRANLSSS 


SJH$S_CLI, 

SIHESIHST CLID); 
If .1TEM_PRESENTCSJC$_CPU_LIMIT) 
THEN 


BEGIN 
SJHESJHSV_CPU “RAIPUR = 


= TRUE; 
_ SJHS$L > CPULMAX IMUM . VALUE -CPU_LIMIT; 


Veh - ITEM_PRESENTCSJC$_NO_CPU_LIMITJ 


BEGIN 
SJHCSJHSV_CPU_MAXIMUM] = FALSE; 
_ SJHSL-CPULMAXIMUM) = 0; 
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SJHCSJHSL_QUEUE_LINK] = .VALUE_DESTINATION_QUEUECO); 
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IF .ITEM_PRESENTCSJC$_FILE_BURST) 
THEN 


- 


URST ONE = FALSE; 
URST “EXPLICIT = TRUE; 


SELF 


Fog FEM PRESENTER ICSF ILE DURST OED 
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If «1 TEM_PRESENTCSJCS_NO_FILE BURST 
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BEGIN 
SJHCSJHSV_FILE_BURST) = FALSE; 
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: 1282 ig 

: 1585 614 3 IF .ITEM_PRESENT[SJCS_FORM_NAME] 

; ! 615 OR. JTEMZPRESENT SJC$"F ORM~NUMBER] 

: 8 ei SJHCSJHSL_FORM_LINK] = .VALUE_FORMCO); 
; 1590 eis 

: 1591 620 3 IF .ITEM_PRESENTCSJC$_HOLD) 

: 1 3 621 HEN 

: 159 6 : SJHCSJH$SV_HOLDING] = TRUE; 

: 1594 6 

: 1595 626 

: 1396 625 3 IF .ITEM_PRESENT(SJC$_NO_HOLDJ 

: 139 6 6 THEN 

: 1 38 6e7 & BEGIN 

: 15 628 4 COPY TIME(CUR_TIME, SJHCSJH$Q_AFTER_TIME]); 
3: 1600 629 4 SJHCSJHSV_HOLBING] = FALSE; 

: 1601 630 4 SJHCSJHSV-REFUSED) = FALSE; 

> 160 631 4 SJHLSJHSV-RETAINED] = FALSE; 

: 160 363¢ END; 

+ 1604 63 

3; 1605 $o3e 

; 1606 635 IF _.ITEM_PRESENTCSJC$_JOB_COPIES) 

: 1608 637 SJHCSJH$B_JOB_COPIES] = .VALUE_JOB_COPIES; 
3; 1609 O38 

: 1610 639 

+ 1611 640 3 IF .ITEM_PRESENTCSJC$_JOB_NAME) 

; 1618 2641 3 THEN 

: 161 g64¢ 4 BEGIN 

> 1614 2643 & CHSWCHAR( 

+ 1615 644 4 .VALUE_JOB_NAMECSDSC_W_LENGTH), 
> 1616 645 4 SJHESJAST_RAMEJ); 

: 1617 646 4 CHSCOPY ( 

> 1618 647 & . VALUE_JOB_NAMECSDSC_W_LENGTH] 
+ 1619 648 4 . VALUE ~ JOB ~NAMELSDSC~A_POINTER, 
+ 1620 649 4 ‘ 

: 1621 650 4 SJH$S_NAME-1, 

: 16 ‘ 3651 4 SJHLSJHST_NAMEJ+1); 

: 16 65¢ END; 

: 1624 65 

> 1625 654 : 

: 16 6 635 IF _. 1TEM_PRESENTCSJC$_LOG_DELETE3 

> 1628 gas SJHCSJH$SV_LOG_DELETE] = TRUE; 

> 1629 658 

3 1650 65 

; 16 1 660 IF_.1TEM_PRESENT(SJC$_NO_LOG_DELETE] 

: 16 ‘ 66¢ SJHCSJH$SV_LOG_DELETE) = FALSE; 

+ 1634 66 

> 1635 664 

: 1636 665 3 IF .ITEM_PRESENTCSJC$_LOG_SPECIFICATION) 
: 16 66 THEN 

> 1638 667 & BEGIN 

+ 1639 668 4 FINAL_STATUS = STORE_VARIABLE_DATA( 
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3; 1 9 4 

; 1829 ° : 4 ite $6 PECIFICATION 

; 1o4¢ 71 & Sues G. SPECIFICATION), 

> 164 672 4 smistct PECIFICATION, 

3 16446 673 4&4 S VALUES LOG_SPECIFICATION[SOSC_W_LENGTH) 
> 1645 674 & VALUE “LOG SPECIFICATIONLSDSC A POINTERS); 
: 1646 675 4 IF NOT .FIRAL -STATYS THEN LEAVE PROTECTED_UPDATE; 
> 164 676 SHES JHBV.LOGTNULL = FALSE; 

: 1668 67 END; 

We 

; is 6 9 IF ;, TEM PRESENT(SJC$_NO_LOG SPECIFICATION] 

: 16 : 68¢ SJHCSJH$V_LOG_NULL] = TRUE; 
$s) 

: 1656 oss IF .ITEM_PRESENTCSJC$_LOG_ SPOOL 

> 1658 6 $ SJHCSJH$V_LOG_SPOOL] = TRUE; 

HB RB 

> 1661 690 3 IF TEN _PRESENTCSJC$_NO_LOG_SPOOL] 
BO Bang 

> 1664 $38 4 es LOG_QUEUE LINK} = 0; 

* 1665 694 4 SJHCSJH$V-LOG SPOOL] = FALSE; 

> 1666 695 4 IF NOT .ITEM SpRESENTLSUCS att; DELETE] THEN SJHCSJHSV_LOG_DELETE) = FALSE; 
: 1667 696 

ee 

; 1890 699 3 IF .ITEM_PRESENTCSJC$_LOG_QUEUE) 

: 1873 4 i elie 

; 1898 702 4 IF {BBLOCKC. VALUE_LOG_QUEUEC11. SMQ$V_BATCH] 
: 1e%e a a ee 

> 1676 705 § FINAL_STATUS = JBC$_INCDSTQUE; 

; 1677 706 5 LEAVE™ PROTECTED_UPDATE; 

: 1878 708 4 sti LOG_QUEUE_LINK) = , “VALUE .LOG_QUEUECO]; 
3: 1680 709 4 SJHCSJH$V_LOG_SPOOLJ = TRUE 

> 1681 710 

. ot 

; 1686 at IF ITEM PRESENTLSJC$_LOWERCASE) 

: 1686 715 SJHCSJHSV_LOWERCASE) = TRUE; 

. ns 

; 1689 718 1F ITEM. PRESENTCSJC$_NO_LOWERCASE) 

: 1691 720 SJHCSJH$SV_LOWERCASE) = FALSE; 

.| 

; 1694 u § LF, ITEM_PRESENTCSJCS_NOTE” 

+ 1696 725 4 BEGIN 
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: 1697 7 6 4 FINAL_STATUS = STORE_VARIABLE_DATA( 

3 1998 7 4 . 

; 1 7 8 4 JH$§_NOTE, 

: 1700 7 4 SJHCSJHST_NOTE], 

> 1701 730 4 YM$K_NOTE 

: 1708 731 4 VALUE _NOTECSDSC_W_LENGTH) 

: 170 7 : 4 VALUE -NOTELSDSC-A-POINTERJ); 

+ 1704 733 4 IF NOT .FINAL_STATUS TREN LEAVE PROTECTED_UPDATE; 
: 1705 734 END; 

; 1706 735 

: 170 7 : 

: 1708 7 IF .1TEM_PRESENTCSJC$_NOTIFY] 

: 1709 736 3 THEN 

3 1710 739 SJHCSJHSV_NOTIFY] = TRUE; 

> 1711 740 

; 218 741 

; 1713 r IF .ITEM_PRESENTCSJC$_NO_NOTIFY) 

: 1715 744 SJHCSJHSV_NOTIFY] = FALSE; 

: 1716 765 

: 1717 574 

: 1718 74 IF .ITEM_PRESENTCSJC$_PAGINATE] 

> 1719 748 3 THEN 

: 1720 749 & BEGIN 

: 1721 750 4 SJHCSJH$V_PAGINATE] = TRUE; 

: 179@ 751 4 SJHCSJH$SV~PAGINATE EXPLICIT] = TRUE; 

: 172 373g END; 

3: 1724 275 

> 1725 754 

: 1726 755 3 IF .ITEM_PRESENTCSJC$_NO_PAGINATE) 

: 1727 756 3 THEN 

: 1728 3737 4 BEGIN 

F He +4 758 4 SJH SJH$V_PAGINATE) = FALSE; 

: 17 2759 4 SJHCSJHSV~PAGINATE EXPLICIT) = TRUE; 

: 1731 2760 END; 

: 17 3 2761 

> 173 376¢ 

+ 1734 76 IF .BBLOCKCITEM_PRESENT, 0, SJCS_PARAMETER_1, 8, 0] NEQ 0 
: 17? 764 THEN 

: 17 765 4 BEGIN 

+ 1737 766 5 IF (.VALUE_PARAMETER_1CSDSC_W_LENGTH] + 

> 1738 767 5 - VALUE_PARAME TER“¢ SDSC"W-LENGTH] + 

: 1739 768 5 - VALUE ~PARAMETER~SLSDSC_W-LENGTH) + 

: 1740 769 3 ° VALUE ~PARAMETER-4(SDSC_W-LENGTH) + 

> 1741 770 VALUE ~PARAMETER-SESDSC_W-LENGTH] + 

: 1748 771 5 - VALUE_PARAMETER-6 SDSC"W"LENGTH] + 

+ 174 17 7 : VALUE~PARAMETER-7CSDSC_W-LENGTH] + 

+ 1744 773 4  VALUE~PARAMETER-S8CSDSC-W-LENGTHJ) GTRU JBCSK_MAXPARSIZ_ALL 
3 1745 774 4 THEN FINAL-STATUS = JBC$_INQPARLEN 

: 1746 775 4 ELSE FINAL~STATUS = STORE_VARIABLE_DATA_LIST( 

> 174 176 4 .SJH 

> 1748 777 & SJH$S_PARAMETERS 

> 1749 778 4 SJHCSJH$T_ PARAMETERS), 

: 1750 779 4 SYMSK_ PARAMETERS, 

> 1751 780 4 .VALUE_PARAMETER_1(SDSC_W_LENGTH], .VALUE_PARAMETER_1(SDSC_A_POINTER], 
: 1738 781 4 - VALUE ~PARAME TER=¢ SDSC“W7LENGTH, - VALUE ~PARAME TER=¢ SDSC"A-POINTERJ. 
> 175 782 4 VALUE ~PARAMETER~SCSDSC~W-LENGTHJ, .VALUE~PARAMETER~35CSDSC_A_POINTERJ, 
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5 1754 783 4 -VALUE PARAMETER. ¢ SDSC_W_LENGTH], .VALUE_PARAMETER_4(SDSC_A_POINTER], 
: 1755 784 4 . VALUE~PARAMETER-5ESDSC_W-LENGTHJ, .VALUE-PARAMETER-SLSDSC_A_POINTERJ, 
: 17 6 785 4 ‘ ALUE “PARAMETER SDSC“W-LENGTHJ, - VALUE_PARAME TER SDSC-A-POINTERJ, 
: 17 786 4 . VALUE~PARAMETER-7LSDSC_W-LENGTHJ, .VALUE-PARAMETER-/LSDSC_A_POINTER 
: 17 § 787 & . VALUE~PARAMETER-B8(SDSC_W-LENGTHJ, .VALUE-PARAMETER-8LSDSC_A_POINTERJ); 
: 1759 Lu 8 4 IF NOT .FIRNAL_STATUS-THEN LEAVE PROTECTED_UPDATE; 
: 1761 790 
; 126¢ 791 
; 1763 19 IF_.ITEM_PRESENTCSJC$_PRIORITY] 
: 1786 194 SJHCSJH$SB_PRIORITY] = .VALUE_PRIORITY; 
: 176 796 
: 1768 797 3 IF .ITEM_PRESENTCSJC$_OPERATOR_REQUEST] 
: 1769 798 3 THEN 
: 1770 799 4 BEGIN 
: 44 Soot 4 FINAL_STATUS = STORE_VARIABLE_DATA( 
: 1398 802 4 $JH$$_OPERATOR_REQUEST, 
+ 1774 803 4 SJHCSJH$T OPERATOR REQUEST), 
: 1775 804 4 SYMSK_OPERATOR_REQO 
: 1776 805 4 . VALUE_OPERATOR_REQUESTCSDSC_W_LENGTH) 
: 1777 806 4 . VALUE OPERATOR REQUESTLSDSC_A-POINTERI); 
: 1778 807 4 IF NOT .FINAL_STATUS THEN LEAVE PROTECTED_UPDATE; 
: 17S at ; 
: 1782 2811 IF .ITEM_PRESENTCSJC$_RESTART] 
3; 178 2 \¢ THEN 
: 1784 281 SJHCSJHSV_RESTART) = TRUE; 
te 
: 1787 2816 3 IF .ITEM_PRESENTCSJC$_NO_RESTART] 
+ 1788 2817 ; 
3 178) sais SJHCSJHSV_RESTART] = FALSE; 
3; 1791 $850 
; 1798 2821 IF .ITEM_PRESENTCSJC$_WSDEFAULT) 
3: 179 $858 THEN 
> 1794 2823 & BEGIN 
: 1795 824 4 SJHCSJHSV_WSDEFAULT] = TRUE; 
: 1796 $554 4 SJH SJHSWIWSDEFAULT] = .VALUE_WSDEFAULT; 
: 1798 : 
3: 1799 828 
: 1800 2829 IF_.1TEM_PRESENTCSJC$_NO_WSDEF AULT) 
> 1801 830 3 THEN 
3 1808 831 4% BEGIN 
> 180 B3¢ 4 SJHCSJHSV_WSDEFAULT) = FALSE; 
+ 1804 83 4 SJHCSJHSW-WSDEFAULT) = 0; 
: 1805 834 END; 
1 Be 
: 1808 B39 IF _. J TEM_PRESENTCSJC$_WSEXTENT] 
+ 1809 838 3 THEN 
: 1810 2839 & BEGIN 


16 
RECORDUTL Queue record manipulation utilities 1b-Se -1984 00:18:27 AX-11 Bliss-32 V4.0-74 P 5 
voce 4 14 ety 7 EE: JOBCTL. REIRECOMDUTL -BS251 age 433 


= 
co 
_ 
_ 


SJHESJHSV_WSEXTENT 
SH SJHSW-WSEXTENT 


} = TRUE; 
. = ,VALUE_WSEXTENT; 


LF, TEM_PRESENTCSJCS_NO_WSEXTENT 
BEGIN 

Son SJHSy_WSEXTENT] 
SH SJHSWIWSEXTENT 


FALSE; 
0; 


IF .ITEM_PRESENTCSJC$_WSQUOTA] 
THEN 


BEGIN 
SJHLSJH$V_WSQUOTA] 
SH SJHSW-WSQUOTA] 


TRUE; 
- VALUE __WSQUOTA; 


IF .ITEM_PRESENTCSJC$_NO_WSQUOTAJ 
THEN 


GIN 
SJH$V_WSQUOTA) 


2 09 Cd Cd CD C9 C9 09 09 CD CD C9 09 09 0D 09 09 C9 C9 0D CD C9 OD OD CD. CD CD 
WAAR DIP PIPUNINNNINID 2 PO OOO 


DOONAN E WN 0 OD NAUE WN 0 ODNA UNE WN $$ O OONAOUES WN SO OONOUE wr 
2.09 C9 C9 CD OD Od OD OD C9 CD OD CD CD 09 OD CD Cd Od CD CD CD CD C9. C0 CD CD OD C9 0D 00 CD. C9 CD CD CD 


C9 C909 C909 09 ISIN SSN SNS SIDA OA IIIT EE 
DWONAULS WN (OO ONAUE WN $ O OONAUE WR OODONOULS WN 


PIPIPIPIPIPIPIPINIPIPIPININYIAININININININIAINIPINININIPIPUPINIPIPYIPIPOPINPINPIPOPINYNPPPunofnronn 


4 
| 
4 
4 
| 
4 
4 
| 
& 
4 
; END; ! block PROTECTED_UPDATE 


eee ee ee ee ee ce ee ee ce ee ce ee ee ee ce ee ee ec ee ee ee ed ee ce ee ee ee ce ee ee ee ee ee DD eed ee ee dD ee ed ed 


sont é = FALSE; 

SJH SJHSW_WSQUOTA] = 0; 

8 

84 

84 

84 

84 IF _.FINAL_STATUS 

84 THEN 

84 BEGIN 

84 IF .ITEM_PRESENTCSJC$_CHECKPOINT_ DATA] 
Sf ; on ETEM_PRESENT SJC$_NO_CHECKPOINT_DATA] 
84 8 DEALLOCATE_VARIABLE_DATA( 

85 8 SJH$S_CHECKPOINT, 

85 880 LSJHCSJHS$T_CHECKPOINT)) 

85 881 LSE 

85 8 § CHSMOVE ( 

85 8 SJHS$S_ CHECKPOINT 

85 884 LSJHCSJH$T_CHECKPOINT), 

85 885 SJHCSJHS$T_CHECKPOINT); 

85 886 

85 887 

85 888 IF  ITER_PRESENTESJCS_LOG SPECIFICATION] 
860 $o89 OR .ITEM_PRESENTCSJC$_NO_COG_SPECIFICATION] 
861 890 THEN 

B6¢ 891 DEALLOCATE_VARIABLE_DATA( 

86 B9¢ S_COG_SPECIFICATION 

864 89: LSJHCSJH$T_LOG_SPECIF CATION) 
865 94 LSE 

866 95 CHSMOVE ( 

867 896 SJH$S_LOG_SPECIFICATION, 
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teeth F eR eet at ee ae tee 9 412) 
: 1868 97 LSJHCSJH$T_LOG_SPECIFICATIONI, 
; 1869 B38 SJHCSJH$T_COG_SPECIFICATIONJ); 
: 1870 99 
: 1871 900 
; 187 901 IF .ITEM_PRESENT(SJC$_NOTE] 
> 187 90 OR .ITEM~PRESENTLSJC$_NO_NOTE] 
> 1874 90 HEN 
: 1875 904 DEALLOCATE_VARIABLE_DATA( 
> 1876 905 SJHSS NOTE, 
; 1877 90 LSJHCSJHS$T_NOTE)) 
: 1878 90 
: 1879 908 CHSMOVE ( 
> 1880 909 JH$S_NOTE, 
: 1881 910 LSJHCSJHST NOTE. 
; 188¢ 911 SJHCSJHST_NOTE);: 
3: 188 alg 
3: 1884 $3 
: 1885 914 IF .BBLOCKCITEM_PRESENT, 0, SJC$_PARAMETER_1, 8, 0] NEQ 0 
> 1886 3919 ; OR .ITEM_PRESENTCSJC$_NO_PARAMETERS J 
: 1887 916 THEN 
: 1888 2917 DEALLOCATE_VARIABLE_DATA( 
: 1889 2918 SJH$S_PARAMETERS 
: 1890 2919 LSJHCSJH$T_PARAME TERS) 
: 1891 920 3 
; 1892 2921 3 CHSMOVE ( 
: 189 $92¢ 5 SJH$S_PARAMETERS, 
> 1894 2923 3 LSJHCSJH$T_PARAMETERS, 
> 1895 2924 3 SJHLSJHST_PARAMETERS J): 
> 1896 2925 3 
: 1897 2926 3 
: 1898 2927 3 IF .ITEM_PRESENTCSJC$_OPERATOR_REQUEST] 
+ 1899 2928 3 OR .ITEMTPRESENTCSJC$_NO_OPERATOR_REQUEST] 
: 1900 2929 3 THEN 
: 1901 2930 3 DEALLOCATE_VARIABLE_DATA( 
> 190 2931 3 SJHSS OPERATOR REQUEST, 
: 190 2932 3 LSJHCSJH$T_OPERATOR_REQUEST)) 
+ 1904 2933 3 LSE 
: 1905 934 CHSMOVE ( 
: 1906 2935 3 SJH$S_OPERATOR_REQUEST 
: 1907 2936 LSJHCSJH$T OPERATOR REQUESTI, 
: 1908 2937 SJHCSJH$T_OPERATOR_REQUEST J): 
+ 1909 2938 END 
: 1910 2939 2 ELSE 
> 1911 940 BEGIN 
> 1912 941 DEALLOCATE_VARIABLE_DATA( 
> 1913 294¢ z SJH$ KPOIN 
> 1914 294 SJHCSJH$T_CHECKPOINT)); 
+ 1915 2944 DEALLOCATE VARIABLE _DATA( 
: 1916 945 SJH$S_COG_SPECIFICATION 
> 1917 946 SJHCSJH$ST-LOG SPECIFICATION)); 
+ 1918 94 DEALLOCATE_VARIABLE_DATA( 
+ 1919 948 H$S_ROTE, 
: 1920 949 SJHCSJH$T_NOTE)); 
> 1921 950 DEALLOCATE VARIABLE _DATA( 
; 1988 951 SJH$S_PARAMETERS 
: 19 93¢ LSJHCSJH$T_PARAMETERS)); 
> 1924 95 DEALLOCATE_VARTABLE_DATA( 
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JOBCTL.SRC 
: 1925 954 SJH$S_OPERATOR REQUEST, | 
: 1946 955 SJHCSIHST OPERATOR REQUEST); 

2419 956 CHSMOVE (SYMSS“SYM, LSJA, .SJH); 

3; 1928 9 END; 

? 1959 958 

? 19% 95 

2 1931 960 3 .FINAL_STATUS 

: 1982 961 1 END: 


OFFC 00000 .ENTRY APPLY_SJH_OPTIONS, Save R2,R3,R4,R5,R6,R7.- ; 2384. 
RB.RITRIOTR11 : 
SE FDF8 CE i 0000 MOVAB -520(5P), SP : | 
56 04 AC DO 0000 MOVL. SJH, R6 + 2423 
0B AE 66 0200 8F 28 0000 MOVC3 #512, (R6), LSJH : 
5B 0180 C6 9E 0001 MOVAB 384(R6), Ril + 2424 | 
20 00 6E 00 2c 90017 mMovcS #0, (SPS, #0, #32, (R11) : | 
SA O1A0 C6 «YE 00010 MOVAB 416(R6), R10 > 2425) 
06 00 6E 00 2¢ 900¢ movcS #0, (SPS, #0, #6, (R10) : | 
59 01A6 C6 9E 00028 MOVAB 422(R6), RO + 2426) 
06 00 6E 09 2¢ 00020 MOVCS #0, (SPS, #0, #6, (ROD : | 
e i 
04 AE 01B2 C6 9E 00033 MOVAB 434(R6), 4(SP? + 2427) 
20 00 6E 00 2C 00039 MOVCS #0, (SPS, #0, #32, a4(SP) ; 
04 BE 0003€ : | 
58 O1AC C6 -9E 00040 MOVAB 428(R6), R8 : 2428) 
06 00 6E 00 2¢ 00045 MOVCS #0, (SPS, #0, #6, (RB) : | 
57 01 DO 00048 MOVL #1, FINAL_STATUS + 2429. 
39 00000000' EF 03 £1 0004E BBC #3, ITEM_PRESENT, 2$ > 2433 
2 0098 C6 9E 00956 MOVAB 152(R6), ~R2 ; 2436 
62 00000000' EF DO 00058 MOVL § VALUE_AFTER_TIME, (R2) ; 
50 009c «C6 i 9006¢ MOVAB 156(R8), R : 
60 00000000' EF D0 0006 MOVL  VALUE_AFTER_TIME+4, (RO) : 
51 00000000' EF DO O006E MOVL §CUR_TIME+4,~R1 : 2437) 
60 51 01 0007 CMPL —s—-R1, ~(RO) ; 
99 1A 00078 BGTRU 1$ ; | 
13 12 OO07A BNEQ 2$ ; ; 
62 00000000' FF D1 9907¢ CMPL CUR_TIME, (R2) : | 
A 1F 0008 BLSSU -2$ ; 
62 00000000' Ef DO 00085 1$ MOVL  CUR_TIME, (R2) > 2439 | 
60 1 pO 0008C MOVL  R1,~(RO) : 
09 00000000" EF 04 a OOO8F 2$ BBC #4. ITEM_PRESENT, 3$ > 2443 
98 (6 00000000' EF 7D 00097 MOVQ CUR_TIME, 152(R6S > 2445 
08 00000000" EF 04 £0 G00A9 3$ BBS #4, 1 TEM_PRESENT+1, 4$ > 2448 
OA 00000000' EF 05 a 000A BBC #5. ITEM"PRESENT+1. 5$ + 2449 
O6AO C6 00000000" EF 10 28 00080 4$ MOVC3 #16, VALOE CHARACTERISTICS, 160(R6) > 2454 
08 00000000" EF 06 | OBA 5$ BBC #6, ITEM_PRESENT+1, > 2457 
10 00 6£ a 00 C ie MOVCS #0. (SP)> #0, #16, 160(R6) > 2462 
00000000' Ef 5 SOcA 6$: TSTB JTEM_PRESENT#1 > 2465 | 
5 18 00000 BGEQ 4 : 
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wv OS OD 


Doc. Dom BW . 


AME, 264(R 


TEM_P ENT#I1 


(R6) 

TtéM. PRESENTS12, 30$ 

#2. ITEM PRESENT+12, 32$ 
VALUE _LOG_SPECIFICATION+ 
VALUE ~ “LOG"SPECIFICATION, 


R10 
#6 


R6 
4% STORE _VARIABLE_DATA 
gATY $s 


ee 

#8, 13(R6) 

#3. ITEM PRESENT+12, 335 
#8, 13(R6) 

#4 ITEM PRESENT+12, 34$ 
#16, 13(R6) 

#5, ITEM_PRESENT+12, 35$ 
266(R6) 

#16, 13(R6) 
YTER_PRESENT#11 

#4, 13(R6) 

#1. ITEM PRESENT+12 37$ 
VALU Log au UEUE+4, RO 
12(ROY, 38$ 

#29520 06, FINAL_STATUS 
VALUE_LOG_QUEUE, 260(R6) 
#16, T3(R 


#88. ayy PRESENT+12, 38$ 
TER PRESENT#12 


#32, 13(R6) 
#2, ITEM PRESENT#13, 40$ 
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00000000" EF 
00000000° fF 
00000000' gE 
00000000' gf 
00000000° 44 
00000000" EF 
94 4 4 EF 
0000000°_ EF 
0000000" EF 
0000000" EF 
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468: 


p= 1984 00:18:27 AX-11 Bliss-32 V4.0-74 
p-1984 12:37:12 JOBCTL.SRCJRECORDUTL.B32;1 
USHL VALUE_NOTE+2 
MOVZWL VALUE-NOTE, -(SP) 
USHL #1 
PUSHL Rg 
PUSHL #6 
PUSHL R6 
CALLS a6, STORE_VARIABLE_DATA 
MOVL RO, FINAL~STATUS 
BLBS F NAL_STATUS, 40$ 
BBC ai ITEM PRESENT+13, 41$ 
BISB2 #64, 13(R6) 
BC #5, ITEM_PRESENT+13, 42$ 
BICB2 #64, 
BC #5, ITEM_PRESENT+14, 43$ 
BISW2 #384, 13TR6) 
BBC #6, ITEM_PRESENT+14, 44$ 
BICB2 #128, 13TR6) 
BISB2 of R 
BITW ITEM_PRESENT+14, #32640 
BNEQ 45$ 
BRW 48$ 
MOVZWL VALUE_PARAMETER_1, RO 
MOVZWL VALUE-PARAMETER2, R1 
ADDL2 R1, R 
MOV UL VALUE _PARAMETER_3, R5 
MOV UL VALUE _PARAMETER_4, R4 
MOV ZL VALUE_PARAMETER_5S, R3 
MOVZUL VALUE _PARAMETER_6, R2 
WOVZUL VALUE_PARAMETER_7, R1 
MOVZWL VALUE_PARAMETER_8, (SP) 
ADDL2 (SP),~RO 
CMPL 0, #480 
BLEQU 46$ 
MOVL #295056, F INAL_STATUS 
BRB 47$ 
PUSHL VALUE_PARAMETER_8+2 
MOVZWL VALUE-PARAMETER~8, -(SP) 
PUSHL VALUE~PARAMETER~7+2 
PUSHL R 
PUSHL VALUE_PARAMETER_6+2 
PUSHL 
PUSHL VALUE_PARAMETER_5+2 
PUSHL 
PUSHL VALUE_PARAMETER_4+2 
PUSHL 
PUSHL  VALUE_PARAMETER_3+2 
PUSHL RS 
PUSHL VALUE_PARAMETER_2+2 
MOVZWL VALUE"PARAMETER-0, -(SP) 
PUSHL VALUE~PARAMETER~1+2 
MOVZWL VALUE"PARAMETER-1, -(SP) 
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RECORDUTL Queue record manipulation utilities 16-Sep-1984 AX-11 Bliss-32 V4.0- Page 61 
raed eneee- abe Voskeite «| Paacte saeireconpun BS2;1 9¢ 45) 
14 DD 00459 PUSHL #20 : 2778 ; 
48 AE DD 636 PUSHL ’ (SP) : “ | ; 
i DD 004 PUSHL #32 : ; 
6 DD 0046 PUSHL : : § 
000000006 EF 14 FB 0046 CALLS #20, STORE_VARIABLE_DATA_LIST : ; 
7 50 DO 0046 MOVL : , FINAL_STAT : : 
8 57 €9 0046C 47$:  BLBC  FINAL_STATUS, 50$ + 2788 ; 
09 00000000° éF 02 Fi 0046F 48$: BBC #2, ITEM_PRESENT+16, 49S + 2792 
17D C6 00000000' FF 0 00477 MOVB VALUE. PRIORITY 381(R6) 3 2794 3 ¢ 
25 00000000° EF 6 £1 00480 49$: BBC ITEM ENT#+13, 51$ : 2797 B 
00000000" EF bo 0488 PUSHL vacue YOPERATOR. _REQUEST+2 + 2806 34 
7E 00000000" EF 3C 00486 MOVZWL VALUE OPERATOR_REQUEST, -(SP) : 2805 3 § 
12 DD 0049 PUSHL + 2803 ; 
58 DD 00497 PUSHL R8 ; a4 
06 DD 00499 PUSHL #6 ; ; ¢ 
6 DD 00498 PUSHL R6 F : 2 
000000006 EF 06 FB 0049D CALLS #6, STORE_VARIABLE_DATA : 3 é 
| 7 50 DO 004A4 MOVL RO, FINAL STATUS : | 
03 57 Es 0047 50$:  BLBS FINAL_ST TATUS, 51$ + 2807 : 2 
0140 31 OO4AA BRW 75$ : : 2 
04 00000000' EF 02 £1 004AD 51$: BBC #2, ITEM PRESENT+17, 52$ + 2811 3 2 
A6 0¢ 88 00485 BISB2 #2. 14(R + 2813 3 2 
04 00000000" EF 0 cI 00489 52$: BC #3, ITEM PRESENTS17, 53$ : 2816 3 2 
OE Ab 02 8A 004C1 BICB2 #2. 14(R + 2818 : 2 
00000000' EF 95 004C5 53$:  TSTB ITEM PRESENT#18 + 2821 : 2 
Od 18 004¢B GEQ 46 4$ : 3 2 
| OF A 04 88 004CD BISB2 #4, 14(R6) + 2824 te 
0172 ¢€6 00000000' EF B80 00401 OVW VALUE WSDEF AUL , 370(R6) > 2825 3 2 
| 08 00000000" EF E9 O04DA 54$: LBC. —«ITEM_PRESENT+19, 55$ : 3829 3 2 
OE A 04 8A 004E1 BICB2 #4, T4(R6) : 28 : 3 2 
| 0172 C6 B4 004E5 CLRW © 370(R6) > 283 34 
| OD 00000000° FE 01 £1 004E9 55$: BBC #1, ITEM_PRESENT+19, 56$ : 2837 : 2 
A6 08 88 004F1 BISB2 #8. 14(R8) + 2840 3 2 
0174 (6 00000000" EF BO 004F5 MOVW  VALUE_WSEXTENT, 372(R6) > 2841 3 2 
08 00000000" EF 02 £1 OO4FE 56$: BBC a. ITEM PRESENT+19, 57S > 2845 3 2 
OE A6 08 8A 00506 BICB2 #8. 14(Rb) : 2848 : 2 
0174 C6 B4 0050A CLRW 372(R6) > 2849 32 
OD 00000000 _EF 03 3 0050E 57$: BBC #3, ITEM_PRESENT+19, 58$ + 2853 3 2 
A6 10 88 00516 BISB2 #16, 14(R6) : 2856 te 
0176 C6 00000000' EF B0 00514 MOVW VALUE _WSQUOTA, 374(R6) > 2857 F| 
08 00000000" EF 04 £1 00523 58$: BBC #4, ITEM PRESENT+19, 59S : 2861 3 ¢ 
OE A6 10 8A 0052B BICB2 #16, 14(R6) ; 2864 34 
0176 C6 B4 0052F CLRW 374(R6) + 2865 3 ¢ 
03 57 £8 009 359%:  BLBS FINAL STATUS, 60$ : 2872 3 ¢ 
0084 31 005 BRW 75$ : 34 
00000000" EF 95 00539 60$: TSTB ITEM_PRESENT+1 + 2875 3 ¢ 
07 19 0053F BLSS 61$ ; 3 
| OE 00000000" EF £9 00541 BLBC _—«sITEM_PRESENT+2, 62$ : 2876 3 4 
| 80 AD 9F 00548 61$:  PUSHAB Ls JHF 384 : 2880 24 
$3 DD 00548 PUSHL #32 3 | 
000000006 _ EF : FB 00540 CALLS #2, DEALLOCATE_VARIABLE_DATA : 34 
05 11 00554 BRB 63$ F 24 
6B 80 AD 0 28 00556 62$: MOVC3 #32, LSJH+384 (R11) > 2885 24 
08 00000000' EF ; £0 0558 63$: BBS a ITEM_PRESENT+12, 64$ > 2888 | 24 
OE 00000000' a 056 BBC #3. ITEMTPRESENT+12, 65$ + 2889 | 24 
| AO AD SF 0056B 64$: = PUSHAB LSJH+4167 + 2893 24 
06 DD 0056E PUSHL #6 : $< 


- eee 
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|; Routine Size: 1584 bytes, Routine Base: COLE + 0956 


} 
| 1 
RECORDUTL Q d ipulation utilities 1S-se -1984 00:18:27 AX-11 Bliss-32 V4.0-74 Page 62. 
“¥Os~000 wma cto + Sega A VexSep=198e fosstiis — EoOBCTL SREIRECORDUTL B92; 9155 | 
| 000000006 _ EF 2 FB 00570 CALLS #2 DEALLOCATE_VARIABLE_DATA ; | a 
| A AQ. AD BA BBE gen, Ries 85% sc susate, cni0) : 289 | 
| 88 00000000" EF ; EQ nH 66$: BBS fe. ITEM_PRESENT+13, 67$ : $50 i 
| OE 00000000" EF E1005 BBC #3. ITEMCPRESENT+13, 68S : 2902 4 
| AG AD SF OOSBE 678 PUSHAB LSJH+422 ; 2906 i 
000000006 EF 5 FB 0393 CALLS 4 P DEALLOCATE_VARIABLE_DATA ; ef 
| ; e § 
| 69 A6 AD 6 28 0059C 68$:  MOVC3 #6, LSJH+422, (R9) : 2911 i 4 
| 7F80 8F 00000000 EF 53 Osa 698: BITW TEM_PRESENT+14, #32640 ; 2914 4 
| 00000000" EF 98 O8AC TSTB TEM_PRESENT#+15 ; 2915 4 
| E 18 0058 BGEQ 1$ 4 
B2 AD 9F 00584 708: — PUSHAB L JH+434 ; 2919 i 
000000006 EF 62 PB 00889 CALLS #2, DEALLOCATE_VARIABLE_DATA ; 4 
04 BE 82, AD 25 34 90369 71g: Bucs #82, isuHe43s, a4csP) ; 2924 7 
08 00000000" EF Se £0 O0sch 728; BBS AGS ITEM PRESENT#IS., 738 : 2927 : 
00000000" EF 93 00500 TSTB JTEM_PRESENT+15 ; 2928 z 
E 18 00506 BGEQ 4$ ; 4 
AC AD 9F 00508 738: — PUSHAB_ L SJH#428 ; 2932 i 
000000006 EF 02 FB 005DD CALLS #2, DEALLOCATE_VARIABLE_DATA ; i 
46 11 005E4 BRB ; 4 
68 AC AD 06 28 00566 748:  MOVC3 #6, LSJH+428, (RB) : 2937 z 
3F 611 OOSEB Bee 76$ ; 2872 a 
38 DD OOSER = PUSHL a3 Edt : | 
000000006 _ EF 02 FB 005F1 CALLS #2, DEALLOCATE_VARIABLE_DATA : 3 
34 Bb Oosra pus wo Teiged ae 
000000006 EF 02 FB OO5FC CALLS #2, DEALLOCATE_VARIABLE_DATA ; z 
86 bb 00605 PUSHL 6 — + 
000000006 _ EF 02 FB 00607 CALLS #2, DEALLOCATE_VARIABLE_DATA : 7 
me AB Sst ugneess et 
000000006 _ EF 62 PB 0063 CALLS #2, DEALLOCATE_VARIABLE_DATA : 4 
86 bb doele PUSHL 6 re : 
66 ne. he 0200 8 28 able MOVES RSI2  NSUHG CRB) 2956 7 
. 6 Ps e 4 
50 BF 0 b06%e 768: HOVE FINAL_STATUS, RO ; amt 3 | 
04 0062F RET i | 7 
| 3 | 
3 4 
Beat! 
| “Ss 
} 
| 
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| RECORDUTL Queue record manipulation utilities 16-Sep-1984 18:27 AX-11 Bliss-32 V4.0-74 P 3) RE( 
Voee F ergo b= 1382 9345: F5 | Paneer the ineconbun ag2;1 age $5 v6 
| GLOBAL ROUTINE DELETE _SJH_RECORD(SJH_N,SJH): NOVALUE= | 


i 
| 


u 
oO 
oO 


144 


FUNCTIONAL DESCRIPTION: | 
This routine deallocates a job header and its substructures. 

INPUT PARAMETERS: 

SJH_N - Record number of SJH. 

- Pointer to SJH. 


le 
; 


. 
| 


SPrrr 


IN =O ODNAWUE WN O OONAUE WN OOONO 
~o 
~“ 
oo 


| 
IMPLICIT INPUTS: | 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: | 
NONE 
ROUTINE VALUE: | 
NONE 


SIDE EFFECTS: 
NONE 
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SJH: REF BBLOCK; 


Pointer to SJH 


Record number of SQR 
Record number of successor of SQR 
Pointer to SQR 
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a a ed td od = od 


™~ 
e] 
o 
uw 
RIP IPIPIPININININPYINIPYIPININYNINPINIPINININPININININININIDS 2 9 9 9 
= = 


969 2997 DELETIONS; List of deletions to process 

970 998 
971 G99 
36 44 , If there are services outstanding for this job, cancel them. 
974 300 if .SJHCSJHSV_ABORTING) 
975 00 OR .SJHCSJHSV_STARTINGJ 

976 004 HEN 

AA Obs SCAN_INCOMPLETE_SERVICES(ISRV_K_PURGE_SJH, .SJH_N); 
979 007 
94 Sooe | Deallocate the fixed/variable data areas, if they exist. 
386 3010 DEALLOCATE_VARIABLE_DATA( 
98 011 SJH$S_CHECKPOINT 
984 Org SJHCSJH$ST_ CHECKPOINT)); 

985 01 DEALLOCATE_VARIABLE_DATA( 

986 014 SJH$S COG_SPECIFICATION 

987 015 SJHCSJH$T-LOG SPECIFICATION); 

988 B18 DEALLOCATE VARIABLE _DATA( 

989 1 hi TE, 

990 3018 SJHCSIH$T_NOTE)); 


| 
| 
| 
| 
| 


| 
1 
| RECORDUTL Queue record manipulation utilities 1hese 1984 :18:27 AX-11 Bliss-32 V4.0-74 Page 64) 
VOee " 12-88-13 8e 90:48:42 JOBCTL. RESRECONDUSL B32: 1 ° 1% | 


; 1991 019 DEALLOCATE_VARIABLE_DATA( 

; 1338 020 SJH$S_PARAMETERS 

: 199 1 SJHCSJHS$T_PARAMETERS]); 

3 1994 § DEALLOCATE_VARIABLE_DATA( 

; 1995 SJH$S_REFUSAL_REASON 

; 1996 4 SJHCSJH$T_REFOSAL_REASONJ); 

; 199 5 DEALLOCATE_VARIABLE_DATA( 

; 1998 § SJH$S_OPERATOR_REQUEST, 

3 1999 0 SJHCSJHS$T_OPERATOR_REQUEST)); 

; 2000 028 | 

; 2001 9 

3 Oe 9 Deallocate the file record list. 

: 5004 O32 2 DELETIONS = 0; | 

; 2005 0 SQR_N = .SJH SJHSL_FILE_LISTI; 

; 2006 034 2 WHICE .SQR_N NEQ 0°00 

; 2007 035 

; 2008 036 SQR = READ_RECORD(.SQR_N); 

; 2009 037 SQR_NS = .SQRCSYMSL_LINK); 

; 2010 3038 

; 2011 $323 3 

; so16 040 3 : Cancel the delete option for an open job, or for a job that is deleted 

; 201 041 3 ! before execution, unless the file is not in a directory. 

: 2014 ok ; ! 

5 spi? 04 

; 2016 044 4 (, SJHCSJH$V_DELETED) 

3 2017 3045 4 AND NOT .SJACSJH$V_RETAINED) 

: 2018 z066 4 AND .SQRCSQR$W_FILE_ID_DID_NUM] NEQ 0) 

; 2019 047 3 

3 2020 3048 ; . SUH SJH$V_OPEN] 

; 2021 049 

; Soe 3050 3 SQRCSQR$V_DELETE_FILEJ = FALSE; 

; 202 $o2) 3 

; 2024 b2¢ H 

; 2025 305 DELETE_SQR_RECORD(.SQR_N, .SQR, DELETIONS); 

: 2026 054 3 SQR_N = .SOX_NS; 

; 2027 055 2 H 

3; 2028 056 2 

; 3594 057 § 

; 2050 058 ' Execute file deletions, if any. 

: 2031 059 ! 

F O36 060 IF .DELETIONS NEQ 0 

; 203 061 THEN 

3 Oe ‘99 if SYSID_NEQ(THIS_SYSID, SJHCSJH$T_SYSIDJ) 

; 036 064 CREATE_SRQ_RECORD(SROSK_DELETE_FILES, .SJH, .DELETIONS) 

; 2038 066 DELETE_FILES(.DELETIONS); | 

: 2039 067 

; 2040 068 

: ah st Deallocate the job entry number. 

; a8 71 DEALLOCATE_ENTRY_NUMBER(.SJHCSYMSL_ENTRY_NUMBER)); 

3 2045 O78 : | 

; 20646 074 ! Finally, deallocate the job header record. 

3; 2067 075 ! | 
| 
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048 
049 


MOVL 

MOVL 

BBC 

BBS 

TSTW 

BNEQ 

BBC 

B1CB2 
PUSHR 
PUSHL 
CALLS 

MOVL 

BRB 

MOVL 

BEQL 

CMPL THIS 
BNEQ 8$ 


hs 
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Eee 


a, 
= 4. Page 66 
bite a ere nen Were re 16- 30771382 90:48:4s | Pebec te oseesneconbUTL 6S2:1 94% 
0170 ¢2 00000000' 8} AB cpu THIS_sysip+4, 368(R2) 
| dd Bs 8$:  PUSHL $3066 | 
| ; DD OOOBA PUSHE it } 
000000006 EF 3 FB OB co 108 CREATE_SRQ_RECORD ; 
0 bp OC 9$ PUSHL + 3066 
01 FB 000C CALLS YF DELETE_FILES ; 
setnatt Sos 08 A2 DD OO0CC 108 PUSHL  8(R2) : 3071 
01 FB OOOCF CALLS #1, DEALLOCATE_ENTRY_NUMBER : 
citepecetee 06 AC OD 0006 PUSHL  SJH_N : 3076 
01 FB 000D CALLS ee DEALLOCATE_RECORD ; 
vesnatenrer Mee 04 000E0 RET : 3077 
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GLOBAL ROUTINE CREATE_SQR_RECORD(SJH;SQR_N,SQR): L_OUTPUT_2= 


ee 


i 
FUNCTIONAL DESCRIPTION: 
This routine allocates and initializes a job file record. 


8 1 
988 
054 
055 i 
928 i 
0 i 
03 $2 INPUT "1 pao iedunih Ga Sie 
- rointer to ° 
060 a9 i 
061 88 i IMPLICIT INPUTS: 
066 089 ! ONE 
06 090 i 
064 091 i OUTPUT PARAMETERS: 
065 09 SQR_N - Record number of SQR. 
066 09 ! SQR - Pointer to SQR. 
067 094 i 
068 095 i IMPLICIT OUTPUTS: 
069 096 i NONE 
070 097 i 
071 098 i ROUTINE VALUE: 
07 09 i Completion status. 
07 100 i 
074 1 i 
075 i 
O76 i 
07 i- 
078 
079 BEGIN 
080 MAP : 
081 SJH: REF BBLOCK, ! Pointer to SJH 
OSs : REF BBLOCK; !' Pointer to SQR 
08 LOCAL 
084 STATUS; 
085 
086 
‘9 $4 Allocate the queue record, and return if no more. 
089 STATUS = ALLOCATE _RECORD( ; SQR_N, SQR); 


IF NOT .STATUS THEN RETURN .STATUS; 


Initialize the queue record. 
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SQRCSYMSB_TYPE] = SYMSK_ SOR; 
096 SOR Syms “ENTRY NUMBER] = . SJHCSYMSL_ENTRY_NUMBER]; 
097 SQR[SQR$V~PAGINATE] = TRUE: 
098 CHSMOV Et 
099 SORSS_FILE IDENTIFICATION, 
100 VALUE FILE “IDENTIFICATION 
101 SORCSOR$T FILE sane 
198 SORCSORSL_FILE_SIZE) = VALUE FILE_  FDENTIFICATIONC28. 0,32,0); 
10 SORCSORSB Sev gahaniet = 
104 CHSWCHAR (7 
105 :VALUE FILE_SPECIFI LONESDSC. W_LENGTH), 
106 SQRCSORST_FILE_SP ECT ATION)) 
107 CHSCOPY ( 
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VALUE _FILE_SPECIFICATIO H 
gVALUECFILE-SPECIFICATIO 7 ERS, 
SOR$S_FILE_SPECIFICATION=1 
SQRCSORST_FILE_SPECIFICATIONI+1); 


BEGIN 
LOCAL 
: REF BBLOCK, ' Cursor for item iist 
P_END; ! Pointer past end of item List 


Pick up a pointer to the item List and one to the last item. 
P = .VALUE_BATCH_INPUTCSDSC_A POINTER]; 
P_END = .P-+ .VACUE_BATCH_INPOTCSDSC_W_LENGTH] - 4; 
Loop over the items. 
WHILE .P LSSA .P_END DO 
BEGIN 
LOCAL 
TYPE, ' It 
' It 


' Get and advance over the item type and size. 


' 

TYPE = .PCDJI$W_ITEM_CODE]; 
SIZE = .PCDJIS$W ITEM~SIZE): 
P = .P + DJISS_TTEM_READER: 


Process the item. 
CASE. TYPE FROM DJISK_CONDITION_VECTOR TO DJISK_FILE SPECIFICATION OF 


COUTRANGE): 
EXITLOOP; 
CDJI$SK_CONDITION_VECTOR): 
BEGIN 


CHSCOPY ( 
IZE, .P, 


EM SOR$S_CONDITION_VECTOR, SQRCSQR$L_CONDITION_1]); 


CDJISK_FILE_SPECIFICATION): 


M 1 
eet TE eT a aT te bet hp taao rf 
TH] 
TER 
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SUMAN NNN NNN NINN NIN NN NIN NNN NNN NNN NNN NINN 


PS ee See SHS SPSS *S Seer este teste *S sO *S sete sete *S te **enerera te *@ererte *e * ete *e tere *e *S te rte *e te *e te *e*e *e *e *e 
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03FC 00000 ENTRY CREATE_SOR_RECORD, Save R2,R3,R4,R5,R6,R7,- ; 3078) : 
SE 14 ¢2 00002 susL2 #26, SP : | : 
000000006 EF 90 Fe 000 CALLS #0, ALLOCATE_RECORD : 3116 F 
1 0 i 990¢ BLBS STATUS, 1$ ; 3117 ; 
046 =A 08 0010 1$: MOVB #8, 4(SQR) : 3122 : 
5 04 AC D Bai8 MOVL JH ; 3123. ' 
08 AB 08 A? DO 00018 MOVL (RP), 8(SQR) : | ; 
OD AB 04 88 99010 BISB2 #4, 1$(SQR) + 3124. ; 
1C AB 00000000" EF 1¢ 28 00021 MOVC3 #28, VALUE _FILE_IDENTIFICATION 28(SaR) : 3128 : 
38 AB 00000000° Ff pO 90 A MOVL VALUE_FILE~IDENTIFICATION+28, §6(SQ : 169 ; 
44 AB 1 0032 MOVE #1, 68(SORT : 3130) : 
48 AB 00000000' EF 90 90036 OVB. VALUE_FILE_SPECIFICATION, 75(SQR) + 3133) ; 
OOFF BF 00 00000000" FF 00000000" EF 2C 0003E MOVCS VALUE~FILE~SPECIFICATION, - : 3139 3 et 
AB 0004 React nbe peti pet: #0, #255, - ; : $' 
4B 00000000" EF 02 £1 0004F BBC #2, ITEM_PRESENT+1, 7$ > 3142) 3: et 
56 00000000' EF DO 00057 OVL  VALUE_BATCH_INPUT+2, P : 3152. 3 2 
20 00000000" FF 3 00058 MOV ZL VALUE SBAt CHE! INPUT, RO ; 3153) 3 st 
59 36 D1 OO0GA 28: CPL BP_END : 3158. : dt 
3 1€ 0006D BcEqu = 7$ : | > 2 
50 02 Ab 3C 0006F MOVZWL 2(P), TYPE : 3167) 3 2 
58 86 3C 00073 MOV2WL (P)+. SIZE : 3168 | 3 2 
56 02 CO 00076 ADDL2 #2, P > 3169 3 el 
01 00008002 &F 30 CF 00079 CASEL TYPE, #32770, #1 : 3174) : 
000F 0006 00081 3$ WORD 4$-36,- | : 
1B 11 00085 BRB 7$ : 3179, ; 
0c 00 66 . 38 2c 90087 4$ MOVCS SIZE, (P), #0, #12, 16(SQR) ; 5187) ; 
OD 11 OO08E BRB 6$ > 3174) ; 
4B AB 58 90 00090 5$: MOVB SIZE, 75(SQR) : 3195) ; 
OOFF 8F 00 66 = 38 2c 00094 MOVCS SIZE. (P), #0, #255, 76(SQR) ; 3200, ; 
56 58 CO 0009D 6$ ADDL2 SIZE, P : 3209 | ; 
C8 11 000A0 BRB 2$ : 3158 F 
O0F4 7 D3 000A2 7$ st B44 (R7) : 3216 ; 
0108 C7 $8 000A8 TSTB = 264(R7) : | : 
9 12 OOOAC BNEQ 9$ : ; 
Oc AE 48 AB 9A OO0A MOVZBL 75(SQR), DESC > 3224 | : 
10 AE 4C AB 4 008 MOVAB 76<SQR) DESC +4 : 3005 3 
6E 00060000 8F DO 0008 MOVL #393216. ITMLST : 3226 | 3 
04 AE 7C 0008 CLRO = I TMLST+4 : 3008 : 
7E b4 002 CLRL = = (SP) : 3230) : 
04 AE OF pone PUSHAB ITMLST 3 | 3 
14 AE 9F 000C7 PUSHAB DESC : ; 
000000006 00 03 FB OOOCA CALLS #3, SYSSFILESCAN : : 
27 6 B1 00001 MPW TMLST, #39 > 3231 | : 
of 3 60 O06 BeU ot. rrmst : | : 
10 6E 00D9 8$: MOVB. ITMLST, 264(R7) > 3234 | : 
27 00 . 3 BE pe 66 2c OODE MOVCS pa @ITMLST+4, #0, #39, 265(R7) > 3238 | r 
50 01 DO 000E7 9$ MOVL RO > 3243 : 
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RET 


Routine Base: CODE + 1067 
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GLOBAL ROUTINE APPLY_SQR_OPTIONS(SJH,SQR)= 


lee 


t 
FUNCTIONAL DESCRIPTION: 
This routine applies options to a job file record. 


INPUT PARAMETERS: 
SJH - Pointer to SJH. 
SQR - Pointer to SQR. 


IMPLICIT INPUTS: 
Existing values in SQR. 
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err 
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LABEL 
PROTECTED_UPDATE; 


Set up for backing out the transaction in case of an error. 


CHSMOVE(SYM$S_SYM, .SQR, LSQR): 

CHSFILL(O, SQR$S FILE SETUP_MODULES, SQRCSQRST_FILE_SETUP_MODULES)); 
FINAL STATUS = SS$_NORMAL; 

PROTECTED_UPDATE: “BEGIN 


OUTPUT PARAMETERS: 
NONE 
35 IMPLICIT OUTPUTS: 
$539 New values in SOR. 
$§ 8 ROUTINE VALUE: 
$sip Completion status. 
z241 SIDE EFFECTS: 
stg NONE 
sse 
244 - | 
2245 
2246 BEGIN 
2247 MAP 
2248 SJH: REF BBLOCK, ! Pointer to SJH 
2249 SQR: REF BBLOCK; ! Pointer to SQR 
2250 LOCAL 
2251 LSQR: BBLOCKCSYM$S_SYM], ! Saved copy of original SQR 
26 F INAL_STATUS; ! Final routine status 
54 
55 
56 
5 
5 
5 
6 


- ITEM_PRESENTCSJC$_DELETE_FILEJ 
SQRCSQRSV_DELETE_FILE] = TRUE; 


IF 1 TEM_PRESENTCSJC$_NO_DELETE_FILEJ 
SQRCSOR$V_DELETE_FILE] = FALSE; 
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9} id g1 TEM_PRESENTCSJCS_DOUBLE_SPACE] 
| 


+8 SORCSQRS$V_DOUBLE_SPACE] = TRUE; 


$ Pei, EMAPRESENTCSICS_MO_DOUBLE SPACE 
08 SQRCSQR$V_DOUBLE_SPACE] = FALSE; 


IF_ I TEM_PRESENTCSJC$_FILE_BURSTI 
THEN 


INAAANAA ANA 
| $DOOCC9OO 
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BEGIN 
SORCSonsy Fite _gunst3 = TRUE; 
SOR SQR$V—-FILE-BURST_EXPLICIT] = TRUE: 


| 
9 | 
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WO” uw 
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IF_ .1TEM_PRESENTCSJC$_NO_FILE_BURST) 
THEN 


BEGIN 
SQR(SORSV_FILE_BURST] = FALSE; 
SOR SQR$V—-FILE-BURST_EXPLICIT) = TRUE; 


SSBLEARANLSSSLSALAVSS 


WWWwinononoenereronenenore 


01 IF .ITEM_PRESENTCSJCS_FILE_COPIES] 
0§ SOR[SQRSB_FILE_COPIES] = .VALUE_FILE_COPIES; 

i 
305 | 
3 IF _.1TEM_PRESENTCSJCS_FILE_FLAGJ | 
3 THEN | 
30 BEGIN 
0 SORLSORSV_FILE_FLAG] = TRUE; 

SORCSORSV-FILE-FLAG EXPLICIT] = TRUE; 


IF _.1TEM_PRESENTCSJC$_NO_FILE_FLAG) 
THEN 


WANNA NAAM AAAI AANA AAA 
BBE BANNAN no nnonononownonnn 


LE_FLAG] = FALSE; 
LE“FLAG_EXPLICIT) = TRUE; 


ee 


HF. 5,4 TOM _PRESEMTESICS_F ILE _SETUP_ROOULES) 


BEGIN 
FINAL STATUS = STORE_VARIABLE_DATA( 


. QR 
SOR$$_FILE_SETUP_MODULES, 
SaRESORST FILE SETUP MODULES) 


L e 
VALUE_FILE_SETUP_MODULESCSDSC_W_LE 
> VALUE ~F ILE~SETUP~MODULESLSDSC~A~PO 


PWN —OOONO UE W)-O0OOn 


mmr 


WIWwononon 
—OOOonou 


PRRARRE SPW BS SWI BB WWI BB 
~ 


RIPGPIPDPDPIDINDPORIPININOPIPOPYNINDPIPONONOPIPINONMOPI NIPPON Po PoNoNnononunnny 
ANA AAAANA AANA ANIA AANA AIAN AANA NAAN 


WANA AAAI 


WWWAWAALAA AAW 


PUPP & £ 


N 
l 


Be Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Ge Se Fe Se Se Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ss Se Se Se Se Se Ss Ge Ge ee. 


GTH) 
NTERS); 


<z 
S 
oO 
—_ 
ad 


horororororororororororororororuroronons Reo 


WAWAAANWWWw 
HAOWMMAAMNMUIVIVIV 


F 2 
Queue record manipulation utilities 16-Sep-1984 18:27 AX-11 Bliss-32 V4.0-74 Page 74 
“ 1a-Sep-19 4 99:48:45 JOBCTL.§2CJRECORDUTL .B 2;1 ° (15) | 


i «FINAL STATUS THEN LEAVE PROTECTED_UPDATE; 


wr 


IF_.ITEM_PRESENTCSJC$_FILE_TRAILERJ 
THEN 


PASSAU 


FWN CO OODNOAUE WN SC OONOU ES Ww —OW000 


Mrrorn 


FF jt TER PRESENTESICS MOF ILE TRAILER? 


™m 


WAAL AAAINAANAA ANNAN 


SEEESEEEE ES Rees 


IF .ITEM_PRESENTCSJC$_FIRST_PAGE] 
SORCSORSL_FIRST_PAGE] = .VALUE_FIRST_PAGE; 


OOOoo NN NNNNNNS 


- ITEM_PRESENTCSJC$_NO_FIRST_PAGE) 
SQRCSQRSL_FIRST_PAGE) = 0; 


IF g,1 TEM_PRESENTCS JES LAST PAGE) 
SQRCSQR$L_LAST_PAGE] = .VALUE_LAST_PAGE; 


WN" OOONAUES WN “OO ONOUSWN OOONOUW 


RAO 
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POPOPONINOPINIPINOPO Namo Non nononofpongons: 


85 
86 
87 
88 
89 
364 90 
365 91 | 
366 3 
367 9 IF .ITEM_PRESENTCSJC$_NO_LAST_PAGE 
368 94 3 THEN 
369 95 SOR[SQRSL_LAST_PAGE) = 0; 
370 % 
371 97 
37@ 98 3 IF .ITEM_PRESENTCSJCS_PAGE HEADER] 
373 0 SQRCSQR$V_PAGE_HEADER] = TRUE; 
76 
377 4 IF, TEM_PRESENTCSJCS_NO_PAGE_HEADER] 
319 SQRCSQRSV_PAGE_HEADER) = FALSE; 


IF .1TEM_PRESENTCSJC$_PAGINATE] 
THEN 


BEGIN | 
SOR SonsyPAGINATE] = TRUE; 
SOR SQRSV~PAGINATE_EXPLICIT] = TRUE; 
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2 
re: ge enectdmmpanpre tne NESESHBH QRIRSTS Wal betaabbti%sb, ti 


1 Bl 
- JOBCTL.SRC 


N 
DEALLOCATE VARIABLE DATA( 
QRS$S FILE SETUP MODULES, 
SORCSGRST_FILE_SETUP_MODULES)) ; 
ENSROVE (SYRSS_SYR. LSQR, .SQR); 


SJHCSJHSL_ JOB aif 


EJ = .SJHCSJHSL_JOB_ SIZE) + 
~SORCSQRSC_FILE_SIZEJ * .SQRTSQRSB_FILE_COPIES] * .SJH{SJH$B_JOB_COPIES]; 


: 2389 415 
; 2390 418 IF_.ITEM_PRESENTCSJC$_NO_PAGINATE) 
; 91 41 THEN 
; 3 418 4 BEGIN 
: 239 419 4 SQRCSQRS$V_PAGINATE] = FALSE; 

> 239% 420 4 SQRCSQR$V-PAGINATE_EXPLICIT) = TRUE; 

3 2395 421 END; 
; 2596 4 § 
; 2597 4 

; 38 ‘ : IF .1TEM_PRESENTCSJC$_PASSALL] | 
: 2400 4 6 SQRLSQR$V_PASSALL] = TRUE; 

3; 2401 4 
: ret 428 
: 240 429 IF_.ITEM_PRESENTCSJC$_NO_PASSALL] | 
: 2404 430 TH 
3 26405 431 SQRCSQRSV_PASSALL] = FALSE; | 
: 2406 4 ¢ 

: 2407 4 | 
; 2408 434 END; ! block PROTECTED_UPDATE 

: ret 435 

: 2410 436 
: 2611 437 IF .FINAL_STATUS 
: aie 438 THEN 
> 241 439 BEGIN | 
+ 2614 440 IF . ITEM PRESENTCSJC$_FILE_SETUP_MODULES] 
; seie ort ; OR gL TEMLPRESENT SJC$_NO_FILE_SETUP_MODULES] | 
: 2617 408 3 DEALLOCATE_VARIABLE_DATA( 

: e418 444 3 SQR$S_FILE_SETUP_MODULES, 
3 2419 3445 3 LSQRCSOR$T_FILE_SETUP_MODULES)) 

: soso 3446 3 

3 2621 3447 3 CHSMOVE ( 

; g42e 3448 3 SOR$S_FILE_SETUP_MODULES, 

3 242 44 ; LSQRCSORST FILE SETUP MODULES], 

3 2424 3450 SQRCSORST_FILE_SETUP_MODULES)); 
3: 2425 3 END 

: 34 6 ELSE 

: 2627 EGI 
$055 | 
° | 
; rk} 
Py nt | 
: 138 

> 2434 

: 2435 

3: 2436 

3 2437 

; 2438 

: 2439 

3; 2440 1 


.FINAL_STATUS 
END; 
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p- ~ - 0-74 Page 76 
vose000 sent tls Pe ees ipa ag i 1er8een 188s 93:45:95 | aac tke SReconbon bg2:1 9 alt 
03FC 00000 ENTRY APPLY SQR_OPTIONS, Save R2,R3,R4,R5,R6,R7,- 3244 
A DEALLOCATE VAR IAB E_DATA, R9 : | 
8 SoospooR® «EF OF Sonos MOVAB  TTERCPRESERT OS, RA” Posed 
E FEO cE i 9019 MOVAB 3 ietsP). Nl rf 
1 (R6) 3 | 
ee ee idl od: ee kare 206 
45 6 Pees 
FINAL STATUS ; 
bc FE 4 p8 $0 § BLBC ttn PRESENT+3, ; 5291 
oc A 1 5 D BISB2 #1, T2(R6) ; 3295 
04 FE OA 1 ; 8 1 1$: BC 1: ITEM PRESENT+3, 2$ i 3296 
OC A6 1 FA 0036 BICB2 #1. 12(RB) : 3298 
04 FE AB 4 £1 O003A 2$: BC #4. ITEM PRESENT+3, 3$ ; 3301 
OC Ab 04 5B $09 F BISB2 #4. 12(RB) i $305 
_ ff AG O2 fa doock | Bitea ga tote eS : 3308 
- be FF rf: eg o04¢ 4$: BLBC_  ITEM_PRESENT+4, 5$ 3 3311 
0c Ab 18 88 iit BISB2 #24,712(R6) : 3315 
a ae Bi 33885 BEng RR Hay fnesenres, WB 
OC Ab i 332 
#16, 12(R6) F 
oF AB 3 ee tat 6$ Bate #3, ITEM PRESENT+ ; 3327 
a 44 AG 0089 CB 90 00066 OVE VALUE FICE COPLES obire) 3329 
- be Ae 60 Sf Hh iat ™ Bi $B2 #96, 1BCRE)e ; 3356 
m RB BRR Be, Be ibiateses. v BS 
OC Ab : 3348 
#64. 12(R6) : 
SMP oe) 6h EF anaes on: BLBeY HEA PRESENTS, 08 : $3ee 
7E Hirt ce Be tit ROvZUL VALUE. “FILE-SETUP_MODULES, -(SP) ; 332 
cs 8 PBF Ete : 
oS Be Bite ast : 
be PP $0099 CALLS #6, STORE -VARIABLE _DATA ; 
acento i? 28 08 SOOAS oat RO, FINAL “STAT 2$ : 3358 
8 8 é B00AG 10S: Bae. i ITEM PRESENTS, 11$ : 3362 
“ OB <itand ef Ae §0980 11$ Biswe #3 Pe esik 4 12$ : 3370 
ais : ‘ #128, 12TR6) : 3373 
of Ae « ‘ $8 $085 BIB Wi, 13(R6) ; ; th 
* i B 5g S008 12 BL, Uru PTACRESEAE Scola eh 
~.™ -— 3 BY boc? 13$ TST ITEM_PRESENT+5 ; 3383 
ae a a A a 
06 «AB " Pt OOCE 14$ BBC es ITEM_PRESENT+11, 15$ i 3 88 
* 40 A O4EF CB 0O 000D MOVL §VALUE_LAST PAGE, 64(R R6) : 339 
06 A 04 £1 00009 158 BBC a4 ITEM M_PRESENT+11, 16$ : 339 
= 40 A6 D4 000D CLRL  64(R6) : 3393 
04 09 «AB 1 Fl 3 16$: BEC a“, ITER PRESENT+14, 17% i 3398 
04 $8 A ap E1 OOOEA 17% BBC “5° ITEM_PRESENT+14, 18 : 3403 


; Routine Size: 


04 
08 


04 


OA 


A6é 


66 


56 


354 bytes, 


45 


38 


0100 


Routine Base: 


ee ee | 8 
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SSoooooo ooo ooo OOOO oO OOOO OSS SSS 
ee ee et et ee ed a ed a dd od od OOOO 


MOV NUVI O 
Aan & & Enww 
—MNOO—OOLrmwDwo 


SOoanve—-omwo 
OVOOCOO COTW TS OV TS OMmMmrn corn Corn CoCorn Corn cD 


Fool rir OOS 7-0-0 7 —-- DOF - OOF -O@— 


ooo 


12:39:12 — EoactutsreSneconbot.682:1 


RESENT+14, 19% 
RESENT+14, 20$ 


NT+16, 21$ 
RESENT+16, 22$ 
».25$ 

NT+5, 238 
RESENT+5, 24$ 

#2, DEALLOCATE_VARIABLE_DATA 
#6, LSQR+69, 69(R6) 

69(R6) 

r) 


a2 DEALLOCATE_VARIABLE_DATA 
#512, LSOR, (RO) 


~~ 
= 


MON OO fSOOCOMOuU ~~ 
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GLOBAL ROUTINE DELETE_SQR_RECORD(SQR_N,SQR,DELETIONS): NOVALUE= 


'o¢ 
i 


MODULES, 
SORTSORS! _FILE_SETUP_MODULES)); 


Delete files as requested. 
ir p* SoRESaRSY DELETE_FILE) | 


CHAR (SQR(SORST ~fILe_ ID_DVIJ) NEQ 0 
AND ACTUALCOUNT() GEQU™ 


SORCSYMsL LINK} = ..DELETIONS; 


DELETION N; 
REWRITE “RECORD (. SOR. ND; 


ELSE 
0 DEALLOCATE_RECORD(.SQR_N); 


; 4 1 

; 468 7 

3 rk 1 

3 2445 4 1! 

4 rr | 471 1! eset 7 DESCRIPTION: 

: rei tls : This routine deallocates a job file record and its substructures. 
: 2469 474 1} INPUT PARAMETERS: 

; 2450 475 1! SQR_N - Record number of SQR. 

3; 2451 rh 1! SQR - Pointer to § 

: 126 rt A : DELETIONS = (Optional) Pointer to List head for deletions. 
; rey rh 1 | IMPLICIT INPUTS: 
3; 2455 480 1! NONE 

: 2456 481 1! 

3; 2457 48 1 ! OUTPUT PARAMETERS: 

3; 2458 483 1! NONE 

3; 24659 484 1! 

3; 2460 met 1 ! IMPLICIT OUTPUTS: 

3; 2461 486 1! NONE 

3 188 487 1! 

3; 246 488 1 ! ROUTINE VALUE: 

3 2464 489 1! NONE 

3: 2465 490 1! 

3; 2466 491 1 ! SIDE EFFECTS: 

3: 2467 492 1! NONE 

3; 2668 493 1! 

3 2469 494 1 jen 

; 2470 495 1 

: 2471 496 BEGIN 

: rh rh 4 net SQR REF BBLOCK ! Poi SQR 

3 : ; ! Pointer to 

3 2474 499 2 BUILTIN 

3 2475 500 ACTUALCOUNT; 

ie 

3 sets Deallocate the fixed/variable data areas, if they exist. 
: 3480 DEALLOCATE VARIABLE pPATAC 

3; 2481 SOR$S FILE SETUP 
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3; Routine Size: 
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52 


it 


03 


62 
BC 


EF 


EF 


Routine Base: 


Ra 


< 


RECOMBUTL. 8 2:1 


SOR_N, @DELETIONS 
#1, REWRITE_RECORD 
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#1, DEALLOCATE_RECORD 
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vO0-000 Vesep-1984 Vosseits §— EAOacte sResRecoMDUTL 692; 1 atthe 
; 80 ¢ ! GLOBAL ROUTINE DELETE_FILES(SQR_N): NOVALUE= ; 
; a Die | ; 
: 5504 528 i FUNCTIONAL DESCRIPTION: | : 
: 05 é ! This routine schedules the deletion of files in a completed job. | : 
: $09 ‘ ? 1 | INPUT PARAMETERS: | : 
: oS 2 § ! SQR_N - Record number of first SQR in List. | : 
: 5510 534 1 i IMPLICIT INPUTS: | : 
; i} 2 ; | NONE : 
: ig 537 1 | OUTPUT PARAMETERS: | : 
Bee a Be 
; 216 540 1) IMPLICIT OUTPUTS: ; 
$ 2} 541 1! NONE 3 
3 18 2¢g 1! 3 
3; 2519 54 1 ! ROUTINE VALUE: 3 
3 259 544 1! NONE 5 
; F : ote i SIDE EFFECTS ; 
: 25 : 547 1! NONE : 
3 2524 548 1! | : 
; 2525 549 1 !-- 5 
3 258 550 1 3 
; 2507 3551 2 BEGIN | 
; 2528 $226 LOCAL 3 
3 267 55 REF VECTOR; ! Pointer to file deletion context 3 
Be Ms : 
: 236 556 ' Allocate the file deletion context area, initialize it with the list head, : 
: $287 222 and schedule execution of the file deletion routine. ; 
: 2535 3559 2 P = ALLOCATE_MEMORY(); | : 
3 Seae 3560 P =. . 3 
3 2537 3561 SCHEDULE _NONAST(DELETE_ONE_FILE, 4, P); : 
; 2538 3562 1 END; 3 
0000 00000 -ENTRY DELETE_FILES, Save nothing + 3524 : 
5E 04 t2 00002 SUBL2 . : 3 
00000000G_ EF 90 FB 00005 CALLS #0, ALLOCATE_MEMORY ; 3559 | 3 
6E 0 00 Q000C MOVL $ 3 
00 BE 04 AC 00 0000F MOVL § SQR_N, aP ; 3560 : 
5E DD 00014 PUSHL SP 3; 5561 Z 
04 pp bni8 PUSHL 4&4 ; 3 
O000v CF F 0001 PUSHAB OEE TS ONE_FILE 5 3 
00000000G_ EF 03 FB Babss CALLS #3, SCREDUCE_NONAST } 3 
04 0002 RET ; : 


; Routine Size: 36 bytes, Routine Base: CODE + 12F3 
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ROUTINE DELETE_ONE_FILE(REF_P): NOVALUE= 
'e¢ 


' 
FUNCTIONAL DESCRIPTION: 
This routine deletes one file in a completed job. 


INPUT PARAMETERS: 
P - Pointer to pointer to file deletion context area. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 


0909 09 09 09 09 SII NN SINISE SIO OOO OOo 
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SIDE EFFECTS: 
NONE 
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ANAAIN WIN ANAWAANAAA AIAN AA AAAI AA AA AAA AANA NAAN 


BERR LF FAWN NINA NIAIIPIPRINIDIIDID 2 9 OO OO SO SS SS SS SS SS 


8 

8 ™ 

8 

9 BEGIN 

9 LOCAL 

4 REF VECTOR; ' Pointer to file deletion context. 
9 

9 IF ,QUEVE_FABCFABSW_IFI] NEQ 0 

9 THE 

4 BEGIN 

, Point to file deletion context. 

0 P = ..REF_P; 

Qj 

8 Lock the queue file. 

06 LOCK_QUEUE_FILE(); 

08 

sts Loop until a deletion is successfully submitted or no files remain. 
611 WHILE TRUE DO 

ole BEGIN 

61 IND 

ole FIB = PC2) : BBLOCKCSIBSC_LENGTH]; ! FIB 

o18 LOCAL 

61 SQR_N, ' Record number of SQR 
213 QR? REF BLOCK. ! Pointer to 

61 DEVICE_DESC: vECTOR(2), ' Descriptor for device name 


| 
| 
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voC-O00 sesaell eee math paper 1e-8eb-1886 19:59:15 Ebacte’SReSREcoRDUTL 682; 9° 48) v04" 
: rad 620 4 FIB_DESC: VECTOR ‘ ' Descriptor for FIB 

$ 38 621 & FNA DESC: VECTOR ' Descriptor for filename 

3 25 6 ; 4 ITMCST: BBLOCKL 28) i $FILESCAN item List 

ep Be 

: 4 ? 5 ? If no more files, exit the loop. 

> 2604 6 5 4 if .PCO) EQL 0 | 
: 605 6 8 4 THEN cin | 
; £07 630 DEALLOCATE_MEMORY(.P); 

i 360 63) 3 EXITLOOP; | 
ge BE 3 
; sels tH ? Read the SQR record and Link to next. 
+ 2614 637 4 SQR = READ_RECORD(SOR_N = .PLO)); 

3: 2615 638 4 PCO] = .SQRCSYMSL_LINRI; 

se ER 

: 2618 364 : ie Extract the name, type, and version from the file specification. 

; 3620 3008 4 DESC 9] = CHSRCHAR(SQRCSOR$T_FILE SPECIFICATION); 

+ 2621 3644 4 NAT DESCL1] = SQRCSQRST_FILE SPECIFICATION] + 
; ge 3645 4 ITMCSTCO,0,16,0] = 

; 6¢ 3646 4 ITMLSTC2,0,16,0] = FSCNS _NAME ; 

> 2624 3647 4 ITMLSTC4,0,32,0] = 0: 

; 3625 648 4 ITMLST(8.0,16,0] = 

> 2626 3649 4 ITMLST 19.6.16.03 . “Fscus_ TvPE: 

3; 2627 3650 4 ITMLSTC12,0,32,0) = 0; 

: 2628 3651 4 ITMLST(16,0,16,0] = 0; 

> 2629 3652 4 ITMLSTC18.0,16.0] = FSCNS$_VERSION; 

: 2630 3653 4 ITMLST 20.0.32.03 = 0; 

> 2631 3654 4 ITMLSTL24,0, 32,0] = 

; 5058 3695 4 $F ILESCAN(SRCSTR=FNA_DESC, VALUELST=ITMLST); | 
> 2634 657 4 | 
3 tH i ? Initialize for the delete. 
; $e39 3660 4 DEVICE -PESCLO] = CHSRCHAR(SQRESORST_FILE_ID_DVIJ); 

> 2638 3661 4 DEVICE DESC 1) = SORCSQRST FiLE_I1D_Bv1) * 13 

+ 2639 66¢ 4 CHSFILC(O, FIBSC_LENGTH, FYB); 

3 2640 663 4 FIBCFIBSW.FID_NUM) = .SQRCSQR$W_FILE_1D_F1D_NUM; 

> 2641 4 FIBCFIBSW-FID-SEQ) = .SQRCSQRSW7FILE~1D~FID~SEQ]:; 

; 642 4 FIBLFIBSW-FID"RVN) = .SQRCSQRSW-FILE~ID-FID-RVNJ: 

+ 264 4 FIBCFIBSW-DID-NUM) = .SQRCSQRS$W-FILE-1D-DID-NUMJ; 

: B44 4 FIBCFIBSW~DID-SEQ) = .SQRCSQRSW-FILE~1D-DID~SEQ): 

3 2645 4 FIBCFIBSW~DID"RVN) = .SQRCSQRSW-FILE~1D-DID-RVNJ: 

Bes ¢HBSBERERE) Fp gec.ténen 

> 2668 4 FNA“DESCLO) = .ITMLSTCO,0,16,0) + .ITMLSTC8,0,16,0) + .ITMLSTL16,0,16,0): 

: 669 4 FNA~DESCL1) = .ITMLSTL4,0, 32,0); 

: 2651 4 

3 026 4 ! Assign a channel to the device, and issue the delete Q10. Te 

; 265 4 ' cleanly if anything fails. 
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14-Sep-1984 JOBCTL.SRC RDUTL.B52;1 


! 
iF SASSIGN(DEVNAM=DEVICE_DESC, CHAN=PL1]) 


IF $Q10(¢ 
Creag "> Pane OR IOSM_DELETE, 


ASTADRCDELETE _ONE_FILE_AST, 
ASTPR 

Piz FIB Begc 

hae FNA-DESCS 


NBEGIN 
DEALLOCATE_RECORD(.SQR_N); 
EXITLOOP; 

BEGIN 
DEALLOCATE_RECORD(.SQR_N); 
FOASSONI CHAN -PL1)); 


LSE 
. DEALLOCATE_RECORD(.SQR_N); 


Unlock the queue file. 
UNLOCK_QUEUE_FILE(); 
END; 


END; 
.EXTRN SYSSASSIGN, SYSSQIO 
SEXTRN SYSSDASSGN 
O7FC 00000 DELETE_ONE_FILE: 
-WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10 
5A 000000006 ef 9E 00002 MOVAB DEALLOCATE_RECORD, R10 
5 4 Ce 00009 SUBL2 #52, SP 
00000000" EF 85 0000C TSTW  QUEUE_FAB+2 
01 12 00012 BNEQ -'1$ 
04 00014 RET 
56 04 BC 00 00015 18: MOVL  a@REF_P, P 
000000006 _ EF 00 FB 00019 CALLS #0, COCK _QUEUE_FILE 
58 08 Ab H 00020 MOVAB 8(R6), RB 
66 D5 00024 2$: TSTL = (P) 
0C 12 00026 BNEQ 
56 DD 00028 PUSHL P 
000000006 _ EF 01 FB O002A CALLS #1, DEALLOCATE_MEMORY 
00E0 31 00031 BRW 
59 66 DO 00034 38: MOVL (P), SQR_N 
59 DD 00037 PUSHL  SQR_N 
000000006 EF gi FB 00039 CALLS #1, ~READ_RECORD 
7 : D 0040 MOVL 
66 67 DO 0004 MOVL (SOR) (P) 
1C 4B A7 9A 00046 MOVZBL 75(SQR), FNA_DESC 


ret 


dD 3 
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18-808- 1382 99: 39:9 JOBCTL.SRCIRECORDUTL.B32;1 . 1} 
20 AE 4¢ a? 9 4 MOVAB 76(R7), FNA_DESC+4 1 3644 
6E 000600 § BF 8 6 MOVL $895216 ITALST : 3645. 
4 AE D4 CLRL ITmiSTs4 : 3647 
08 AE 00070000 8F DO A MOVL #458752, ITMLST+8 : 3648 | 
¢ AE D4 068 CLRL rmystst2 : 3650 
10 AE 000800 BF BO 0 6 MOVL #524288, ITMLST#+16 : 3651) 
14 AE 7C $0 CLRO =I TMLST+20 + 3653 
7E p4 0 CLRL = = (SP) : 3655 
4 AE 9F 0007 PUSHAB ITMLST ; 
4 AE 9F 0007 PUSHAB FNA_DESC : 
000000006 00 03 FB 00078 CALLS #3, SYSSFILESCAN : | 
AE 1¢ =A? OA O07 MOVZBL g8{saR), DEVICE DESC + 3660 
AE 1D A? GE 00084 MOV (R7), DEVICE _BESC+4 : 3661. 
0040 8F 00 ‘3 09 2c 30036 MOVCS #0, (SP), #0, #64, (RB) : 3662 | 
04 AB 2c A7 7D 00094 MOVQ 44(SQR), 4(RB) + 3663) 
C AB 4 A? 00 00096 MOVL 52(S5QR). 12(R8) : 3667) 
24 =«OAE 40 ef 9A 90098 MOVZBL #64, F1IB_DESC : 3669 | 
28 = AE 8 DO O00A0 OVL 8, FIB_BESC+4 : 3670) 
50 6E 3C OO0A4 MOVZ2WL ITMLST,~RO : 3671) 
51 08 AE 3C 000A7 MOVZ2WL ITMLST+8, R1 : | 
50 51 cO 000AB ADDL2. R1, RO : | 
32 10 AE 3C OOOAE MOVZ2WL ITMLST+16, R : 
1c AE 0 52 C1 90082 ADDL3 R2, RO, FNA_DESC : 
20 AE 04 AE oO 0008 MOVL  ITMLST+4, FRA_DESC+4 : 3672. 
7E 7C 000BC CLRO = = (SP) : 3678) 
04 A6 9F OOOBE PUSHAB 4(P) : 
38 =AE 9F 000C1 PUSHAB DEVICE _DESC ; 
000000006 00 04 FB 000C4 CALLS #4, SYSSASSIGN ; | 
3E 50 E9 000¢B BLBC ~=_-RO,_“5$ F 
7E 7C OOOCE CLRQ —_ = (§P) + 3686. 
re 7€ 00000 CLRQ = = (SP) ; 
2c «AE OF 00002 PUSHAB FNA_DESC : | 
38 AE 9F 00005 PUSHAB FIB~DESC : 
56 DD 00008 PUSHL P ; 
0000v CF 9F OOODA PUSHAB DELETE_ONE_FILE_AST : | 
7E D4 OOODE CLRL (SP) ; 
7E 0135 BF 3C O00ED MOVZWL #309, -(SP) : 
04 A6 DD OO0ES USHL  4(P) : 
7E 04 O00E8 CLRL 5 (sP) ; 
000000006 00 OC FB OOOEA CALLS #12, SYS$QI0 ; | 
07 50 €9 OO0F1 LBC =—saRO, 48 ; 
59 DD O00F4 PUSHL  SQR_N > 3689 | 
6A 01 FB OOF 6 CALLS #1, ~DEALLOCATE_RECORD ; 
19 11 000F BRB 7$ > 3688 | 
59 DD OOOFB 4$: PUSHL  SQR_N : 3694. 
6A 01 FB O000FD CALLS #1, ~DEALLOCATE_RECORD ; 
04 A6 DD 00100 PUSHL = 4(P ; 3695 | 
000000006 00 01 FB 0105 CALLS #1, SYSSDASSGN ; | 
03 11 0010A BRB 6$ ; 3680. 
9 pd 0010C S$: PUSHL SQR_N : 3698 | 
6A 01 FB 0010E CALLS #1, ~DEALLOCATE_RECORD ; | 
FF10 31 orn] 6$: BRW : 3611. 
000000006 _ EF 00 FB 00114 7$: CALLS #0, UNLOCK_QUEUE_FILE : 3704 | 
04 00118 RET : 3706 | 


; Routine Size: 284 bytes, Routine Base: CODE + 1317 
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; 5 Te? ! ROUTINE DELETE_ONE_FILE_AST(P): NOVALUE= 

; 26 +8 1 44 

; 2688 710 1! 

: 2689 711 1 =! FUNCTIONAL DESCRIPTION: 

; 2690 ie 1! This routine is the coupletioen AST for deletion of one file in a 

3; 2691 71 1! completed Moy It reschedules execution of the file deletion routine, 

3 24 ae : or terminates the operation if it is complete. 

3; 2694 at 1 ! INPUT PARAMETERS: 

: 23? 4, : P - Pointer to file deletion context area. 
3 269 ne 1 | IMPLICIT INPUTS: | 
; 2698 720 1! NONE 

3; 2699 721i 1! 
: 2700 7 § 1 ! OUTPUT PARAMETERS: | 
3: 2701 7 1! NONE 

: 270 7246 1! 

; 270 725 1 ! IMPLICIT OUTPUTS: 
3 2704 726 1! NONE 
3; 2705 727 1! 

: 2706 728 1 ! ROUTINE VALUE: 

3: 2707 729 «1! NONE 

3; 2708 730 1! 

3; 2709 731 1°! SIDE EFFECTS: 

; 2710 HAY: zz NONE 

3 2711 7 1! 

: Ng 734 1 Se 

3; 271 735 «1 

: srie 3736 2 BEGIN 
3: 2715 3737 2 MAP 
: 2716 3738 2 P: REF VECTOR; ' Pointer to file deletion context. 
3 2717 $23 

; 2718 740 ; 

3; 2719 3741 ! Doase ten the channel, and reschedule the file deletion routine. If the 

; 3731 $08 } operation is complete, release the file context area. 

2 13¢ 37 SDASSGN(CHAN=.P[1]); 
3 o7 3745 2 IF .PCO) Eat 0 
3; 27246 3746 2 THEN DEALLOCATE_MEMORY(.P) 

3: 2725 see 2 ELSE SCHEDULE_NONAST(DELETE_ONE_FILE, 4, P); 

3; 2726 748 1 END; 


0004 00000 DELETE_ONE_FILE_AST: 

«WORD “Save R2 : 3707 | 

52 04 AC 00 00002 MOVL PP, R2 3744 | 

04 AZ DD 00006 PUSHL  4(R2) ; 
000000006 00 01 FB 00009 CALLS #1, SYSSDASSGN F 

62 D5 00010 TSTL (Rd) : 3745. 

pA 12 00012 BNEQ 1$ ; 

2 DD 00014 PUSHL R2 : 3746 
000000096 EF 01 FB 90016 CALLS #1, DEALLOCATE_MEMORY : 
04 00010 RET : 


TL Q d manipulati tiliti 10-Sep-1984 7 X-11 Blis V4.0- Pp 8 
O88 sage tenet erty: ne i f-se0-1984 13:45:75 | abate eseeSneconoure B82; 1 aadet 8 
04 A ' 1E 1$: PUSHAB 4 ; 3747 
FEBD cy : PUSHAB DELETE ONE_FILE : 

00000000G_ EF 3 CALLS #3, SCREDUCE_NONAST ; 
002E RET > 3748 


; Routine Size: 47 bytes, Routine Base: CODE + 1433 


Py : © | 
3; Elapsed Tine: 04:16.2 
3; Lines/CPU Min: 3283 

5 amen Aa tigi 34849 
3 peneey Se 588 pages | 
: Compi Bey Complete 


Queue record manipulation utilities 6-Sep AX=-11 Bliss-32 V4.0-7 Page 89 

127286 1382 93: 3: 3 JOBCTL.SRC RECORDUT..B 2;1 (20) 
; 2728 749 1 END | : 
: 5156 338 0 ELUDOM ‘ 
3 PSECT SUMMARY | : 
; Name Bytes Attributes | ‘ 
; COMMON $924 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR NOPIC.ALIGN(2} : 
; CODE 8 NOVEC;NOWRT, RD. EXE.NOSHR, LCL, REL. CON.NOPIC,ALIGN(O) ‘ 
° 
; Library Statistics | ; 
paee he Se ee eee, Symbols -<------ Pages Processing | : 
; File Total Loaded Percent Mapped Time ‘ 
; _$255$DUA28:(SYSLIBILIB.L32;1 18619 195 1 1000 00:01.4 : 
| ; 
| 
: COMMAND QUALIFIERS | ; 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:RECORDUTL/OBJ=OBJ$:RECORDUTL MSRC$:RECORDUTL/UPDATE=(ENH$:RECORDUTL ) : 
; Size: 5218 code + 5024 data bytes ‘ 
Run Time 01:08.5 : 
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